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Foreword 


We have written this book with three types of Commodore 64 users in mind. If you have little or 
no programming experience, but enjoy playing computer games, turn to Section 2. Here you will 
find the games programs listings. If you have some knowledge of BASIC and wish to begin pro¬ 
gramming your own games on the ’64 then you will find that Section 1 takes you in easy stages 
through the intricacies of designing your own characters, creating sprites, and using the joysticks 
to control the action. If you have already reached a high standard then we hope that you will 
pick up hints and tips from the final part of Chapter 9 and from the program listings themselves. 
These are also machine-code routines for moving the character set from ROM to RAM and for the 
joystick controls. These take the form of ‘BASIC LOADERS' so you can use them directly in your 
BASIC programs. Whatever your level of skill and experience we hope that there is something for 
everyone! As some of the programs contained in this book contain machine code routines, it is 
necessary before loading a different program to type in SYS 64738 or turn off the machine and 
start again. 

As far as possible, we have avoided using those nasty Commodore control characters that can 
often be seen in program listings for the ’64 and VIC-20. This should mean that typing in the 
listings given in Section 2 will be a little less frustrating. If you find that your fingers do seize up in 
the attempt then remember that all the programs listed in this book are also available on cassette 
and disk, at a snip, from the publishers. 

The Commodore 64 has many possibilities for the would-be BASIC games programmer. So, 
don’t just sit there ... get on with it! 
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Cassette tapes or floppy disks containing these programs are available from: 


USA John Wiley & Sons Inc.. 605 Third Avenue. New York, NY 10158, USA. 

UK/Europe Ellis Horwood Limited, Market Cross House. Cooper Street, Chichester. 
West Sussex, P019 1EB. 



SECTION 1 


1 

Basic skills 


In this chapter we intend to run over some of the ground rules of good programming practice. 
Following these rules will enable the reader to write well structured, readable programs. Ot course 
these rules are not obligatory, but neither is writing 'good' programs. 

LOOPS 

Most of you will be familiar with the FOR . .. NEXT loop. It allows us to repeat a group ot 
instructions a set number of times. For example 

10 PRiNT"THIS IS A"; 

20 FOR 1=1X010 
30 PRINT "BORING " 

40 NEXT 

50 PRINT'"PROGRAM" 

60 END 

If you run this program you will see that the word BORING is PRINTed 10 times. This is 
because of the loop which starts at line 20. 

20 FORMTOIO 


40 NEXT 
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The computer starts at line 20 by assigning a value of 1 to the variable I. The following 
instructions are executed and then the computer comes to line 40. The NEXT instruction tells the 
computer to go back to line 20 and assign the new value 2 to the variable I; the following instructions 
are again executed; the computer again reaches line 48 which tells it to return to line 20, assign 
a value of 3 to I and so on. 

Eventually I will take the value 10 and the loop will be executed for the last time. The computer 
will then move on to execute the instruction at line 50. 

The value ot I in the FOR ... NEXT loop can be used inside the loop. 

io fori=itoio 

20 PRINT I 
30 NEXT 

40 PRINT'THIS IS THE END OF THE LOOP” 

50 END 

This program will print out the numbers from 1 to 10 followed by a message to tell you that the 
loop is finished. 

It is easy to modify the program to print out the even numbers. All we need to do is to tell 
the computer to start with I as 2 and then toincrease I in STEPs of 2. If we change line lOasfollows: 

10 FORI=2TO!OSTEP2 

this will accomplish the task. 

We can also count in reverse. Change line 10 to read as follows: 

10 FORI=10TOlSTEP-l 

Or we can list the even numbers as before but in reverse order by changing line 10 to: 

10 FORI= 10TO1 STEP-2 

We can even have one loop inside another, as in this example: 

10 FORMTOIO 
20 F0RJ=1T03 
30 PRINTI.J 
40 NEXTJ 
50 NEXTI 
60 END 
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This program will simply print out pairs of numbers, starting with 

I J 

1 1 

1 2 

1 3 

2 1 

2 2 etc. 

Notice that the ’J’ loop is totally contained inside the T loop. The loops are said to be ’nested’. 
An example of the incorrect nesting of loops is given below. 

10 FORMTOIO 
20 F0RJ=1T03 
30 PRINTI.J 
40 NEXTI 
50 NEXTJ 
60 END 


At first glance nothing much seems to have changed, but on close inspection you will see that lines 
40 and 50 have been swapped. The 'J' loop is now no longer wholly contained inside the T loop. 
This will confuse the computer and an error message will be generated. To avoid incorrect nesting 
it is possible to drop the T part in NEXTI and the ‘J’ part of NEXTJ, shortening them to NEXT. 
Now the computer will assume that the loops are correctly nested. 


GOTO AND SUBROUTINES 

The GOTO statement is a very powerful means of directing program flow. It is also the single most 
misused command in BASIC! GOTO should be used sparingly and thoughtfully. Here is an example 
of how not to use it. 

10 INPUTAS 

20 IFA$="YES"THEN GOTO40 
30 GOTO 10 

40 PRINT”WHAT A CARRY ON" 

50 END 
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Compare this with the program below which does the same thing. 

10 INPUTAS 

30 1FA$<>"YES''THEN GOTOIO 
30 PkivrAll ( II BETTER” 

40 ! \i> 

Do not use (iOIOs it you can avoid them. This may not always be possible but you can try! 

Subroutine-, are rather cleverer than GO I Os because they can remember where they came 
trom. A subroutine is a collection of statements that need to be executed at several stages of the 
mam piogram. They are placed at the end of the main program, after the END instruction. To call 
subioutine tiom a piogiam we use the command GOSUB followed by the line number at which 
me subroutine staits. At the end ot the subroutine the command RETURN returns the computer 
to ihe main pnigrap to the same point at which it left. Here is a simple example of a subroutine 
in action. 

10 PRINT. 

10 PRINT' HI THERE” 

20 GOSUB 1000 
30 PR1NT”HFLL.0 AGAIN” 

40 GOSUB 1000 

50 PRINT WE ( AN'I GO ON MEETING LIKE THIS” 

60 GOSUB 1000 

70 PRINT”! REALLY MUST GO NOW” 

80 END 

1000 RLM THIS IS THE SUBROUTINE 
J010 PRIM "HELLO I'M THE SUBROUTINE” 

1020 RETURN 


STRUCTURING YOUR PROGRAMS 

Ihe ubiquitous GOTO raises its ugly head again! One of the golden rules of good programming 
piactice is to ensure that, as lar as possible, each section of your program has ONE entry point and 
ONE exit point. Following this principle will not only make your programs easier to read and 
debug, but will also keep your computer happy! 
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When the computer executes a GOSUB the line number and the position in that line are saved 
in the 'stack'. The stack is a special area of memory inside the computer. Each time a GOSUB is 
executed the stack requires 5 bytes in which to store the information about GOSUB's position. 
This 5 bytes of memory is not cleared until RETURN is reached. Hence if you skip out ot a 
subroutine before reaching the RETURN statement then the stack will not be cleared. Obviously 
you can only do this a limited number of times before all the available memory is used up. So 
don't write subroutines constructed like this one: 

1000 REM THIS IS A SUBROUTINE 

1010 ... 

1020 ... 

1030 IFX>30THEN GOTO200 

1040 ... 

1050 ... 

1060 RETURN 

We can see that if the condition X>30 is true then the computer will never reach line 1060 
and clear the stack. 

It may mean being a bit more long-winded in your program construction to achieve this but it 
will ensure that your programs stay out of trouble. 

The same rule should be applied to FOR ... NEXT loops. Always ensure that each and every 
NEXT in the loop is executed. In other words don't do this: 

10 FORI=lTO10 

20 ... 

30 . .. 

40 IFX>1 20THEN GOTO200 

50 ... 

60 ... 

70 NEXT 

If you follow these rules it may save you some headaches later on! 
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ORGANIZATION OF MEMORY 

The Commodore 64's memory is divided up into small blocks which can be thought of as a series 
of pigeon-holes. To distinguish one pigeon-hole from another each block is given a number. This 
number is called the address. The proper name for a pigeon-hole is 'location'. 

So, the computer s memory is divided into locations. Each location has an address. So. what 
else is new’’ 

As there are very tew statements in BASIC' to help us with graphics, we have to delve into the 
computer's memory. This is done by using two BASIC commands, PEEK and POKE. 


PEEK AND POKE 

PEEK is a command that looks at a specified location and finds out what number is in there 
(remember pigeon-holes'.’). Clear the screen of your machine using the SHIFT and Cl R HOME 
keys together. Now type in this line: 

PRINT PEEK(2023) 

Tou should find that this prints up the number 32. What's going on? 

The number 2023 is the address ot a particular location. The location in question is the pigeon¬ 
hole that holds information about the bottom right-hand corner of the screen. 

The line we typed in tells the computer to PEEK at the location and to print what it finds. 
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The number 32 is the POKE code for a space. This is because there is nothing printed there. 
Try typing in this line: 

PRINT PEEK(56295) 

This line should return the number 6. In fact the location with address 56295 is the one that holds 
information about the color of the bottom right-hand corner of the screen. 

Clear the screen and type: 

POKE 2023,1 

Nothing appears to have happened; but it has. Without clearing the screen type: 

POKE56295.0 

If all is well, then a black letter 'A' will be nestling in the bottom corner of the screen. How did 
such a miracle come about? 

The first POKE instruction pushes the number 1 into location 2023. The number 1 is the 
POKE code of letter ‘A’. Nothing appeared to happen after this POKE because, although the letter 
'A’ was there, it was colored blue, the same color as the background. The second POKE was 
necessary to give the ‘A’ a new color, the number 0 being the color code for black. 

Let’s recap. 

Each position on the screen has two locations associated with it. One of these locations holds 
information about the character in that position: the other holds information about the character’s 
color. 

The Commodore 64’s screen is made up of 25 rows, with 40 character spaces in each row. 
This means that there are 1000 possible positions for characters on the screen. 


SCREEN AND COLOR MEMORY 

The locations for screen memory run from 1024 in the top left-hand corner, to 2023 in the 
bottom right. Remember that it is the screen memory which holds the character information. 

The corresponding locations for color memory start at 55296 and run through to 56295. 

When POKEing a character to the screen you need to POKE to. both the screen memory 
and the color memory or you will not be able to see the character you have POKEd. A useful 
relation between the two is as follows: 


COLOUR MEM LOCATION=(SCREEN MEM LOCATION)+54272 
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To illustrate its use try typing in this program: 

10 PRINT CHR$( 147): REM CLEARS SCREEN 

20 SC=1504 

30 FORI=0TO39 

40 POKESC+1,26 

50 POKESC +54272+1.2 

60 NEXT 

70 END 

Line 20 sets the initial value of the screen code to one which is approximately half-way 
down the screen on the left-hand margin. 

The loop (ront line 30 to line 60 POKEs locations 1504 to 1543 with the number 26. this 
being the POKE code tor the letter 'Z\ At line 50 the corresponding location in color memory 
is worked out and POKEd with a 2, this being the color code for red. 

It you wanted the row ot ‘Z's to appear on the bottom line, what value would you give to 
SC in line 20? 

If you wanted two rows of ‘Z's, how would you alter line 30? 

If you wanted green "Z’s, how would you change line SO'.' 

Write a program to draw alternating rows of yellow ‘E’s. (The POKE code for ’E7 is 5. ) 

A complete list of POKE codes appears in Appendix E of your User Manual. 

Diagrams showing screen and color memory locations, along with the 15 color codes, appear 
in Appendix G of your User Manual. 


WHAT ELSE IS USEFUL? 

It you wish to change the background color, this can be achieved by the following POKE: 
POKE53281.C 

where C is one of the color codes given in Appendix G. 

The border color may be changed by POKEing 53280 with any of the color codes. 


USING WHAT WE HAVE LEARNED 

Let's now try to design a program that will give us ‘animation’ - the first step to programming 
graphics games. 
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We want to move a red 'X' across the screen for 3 rows, and will start by printing our first red 
‘X’ at location 1 504. 


10 PRINTCHRSi 147): REM CLEAR SCREEN 
20 SC=1504 

30 POKESC.24: REM "X" 

40 POKESC+54272,2 :REM COLOUR RED 


Clear the screen and continue typing: 

50 FORI=0TOl 18 
60 POKESC+1,32 : REM SPACE 
70 POKESC+I+1,24: REM "X” 

80 POKF.SC+1+54272,6 : REM COLOUR BLUE 
90 POKESC+1+54272+1,2 : REM COLOUR RED 
100 NEXT 
110 END 


Look caretully at what the loop in lines 50 -100 is doing. It is not simply POKEing one 
character to the screen, but two, back-to-back. 

The loop is printing ‘ X'. That SPACE in front of the 'X' is quite deliberate. As the loop is 
executed, the ‘X’ moves one place to the right. The SPACE prints over the old ’X'. blanking it out. 
The new 'X' is then printed one place to the right of the old one. 

it you try to run this now, you will find that the ‘X’ goes across the screen like a bat out of 
hell. To slow things down a little we can place a 'dummy' loop inside the main loop. A ’dummy' 
loop is one which serves no purpose other than to slow the main loop down. Type in: 

55 FORJ = lTO500 

56 NEXT 


Now try RUNning again to see the difference. Playing about with the upper value of J will alter 
the speed of movement across the screen. There is no lower limit to the speed but the upper limit 
is determined by the length of time required to execute a cycle of the main loop. 

There is an important principle involved here. That is. the speed of animation is limited by 
how long it takes the computer to work through the main program loop. But more of this later! 
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ALIOIDS PROGRAM 

So far we have only looked at short routines. This is a longer program designed to demonstrate 
some of the principles of graphic animation. It is based on the classic "alien invaders’ theme, 
although for our purposes it is somewhat simplified. 

Use the letter 'Z' to move the laser base left. ‘X’ moves the laser base right. Use the ‘M’ key to 
shoot down the invading Alioids. 

This program is more written to be easily understood, than provide an exciting game. Together 
with the program listing, a detailed, line-by-line explanation is included. 


1 

REM 

;l|»- ;lj4 ;fj); ;|(h ; ; l(»; :f; .ifT ;ijh 

2 

REM 

4 4 4: 4 AA A 4 4A A A A 


REN 

4:4 

*4 

4 

REM 

AT 

ALIOIDS 44: 

!“« 

REM 

A 4 

DEMO 44 

& 

REM 

44 

PROGRAM 44 

r 

REM 

*:+ 

44 




Q 

REN 

4 4 

; ijF ; A : -i|h h|i : : ib : : i|h ^ iifc 


16 PR IHTCHR $ 147> 

20 POKE:53281 ,.0 

3 0 S1 @ 2 4 :i R =: 19 33 C —5529 G ; S C -= 1 0 2 '4 ;;C C — 5 5 29 6 
40 FORK-1TG2 
50 FOR I = 1 TO 10 

6 0 P O K E S C , 1 1 2 :: P O K E S C •+• 1 ,. £: 7 : P 0 K E S C •+• 2 r 8 7 

7 0 P 0 K E S C + 31 10 ; P 0 K E S C+41 7 5 
80 POKESC+42,74 

90 FOR Je::0TO3 


1 00 

POKE! 

":C+J , 5 s 

NEK 

T 

1 1 0 

POKE! 

;C+41 5 

: PC. 

KECC + 4 

12:8 

SC~3i 

j+4:CC- 

CC+ 

4 

1 30 

ME XT 




140 

8C:~S. 

r-80 : CC:= 

c+s 

0 

150 

NEXT 




2 00 

REM. 

.-MR If- 

PR 

00 ROM 

2 10 

REM- 

-RUBOUT 

01 ... 

D ALIE 
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238 F’OKES+I ,.32 
240 NEXT 

250 P0KE8+41,32:POKES-i-42,32 

260 GOSUB1000:REM LASER BASE ROUTINE 

270 REM.PRINT NEW ALIEN— 

2 S 0 S C=S+ 16 0 C C = S C+54272 

290 POKE SC , 112 POKESC+1S7 : PQKESC+2,87 

300 POKE SC+2!, 1 10 : POKESC+41 75 : :: POKESC+4274 

3.1.0 FORJ=0TO3 

320 PCiKECC+J.,5 sNENT' 

330 POKECC-i-41 ,5 :: POKECC+42,. 5 
340 G0SUB1000 sREM LASER BASE R0UTINE 
350 GET,IT IF,JT<> " "THEM350 
360 S—Sh-4 

378 T= < S.984 > 846 : I FT= I NT < T I- THENS«S+40 

50W IFPEEK<1744 > *32THEHGOTG20Q:REM REDO LOOP 

600 REM..END OF GAME- 

610 REM.FLASH THE SCREEN. 

620 PRINTCHRT<147) 

630 FOR 1-1 TO5 

648 POKE:532:3 1 ,5 ;FOR J ~ 1TO300 : WENT 
650 P O K E5 328 1 2 s F O R J = 1 J O300 * N E K T 
660 NEXT' 

670 REM.-PRINT MESSAGE — 

680 FOR t .*= 1 TO 12 s F : 'F: I NT sNEXT 

690 T : 'R I NT TAB < 1 1 > " OVERUN BV ALI 01DS " 

700 PRINT:PRINT 

710 P RIN T T A B < 6 > '' < < P R E S S S P A C E B A R T 0 P L. A V > >' 1 
720 GET,IT : I F J'TO-" " THEN72:0 
73G GET07 :IFB7<>" "THEN73G 
740 RUN 

1000 REM--LASER BASE SUBROUTINE. 

1010 B-54272+A 

1 020 P 01< E Fi, 16 0 ; P 0 !< E A ■+■ 1 ,16 0 s P 0 K E A -■ 4 0,. 10 8 
1030 POKER--39 , 1-23 

1040 POKEB,2:POKE8+1,2sPOKEB-40,2 


Listing continued next page 
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1 0 5 Ci 

F'O KEB — 39 

i=:.‘ 


1 060 

PUEER^?, 


-'OK El FT.1 , 32 N ;:;, 0T 

1 070 

POKER.4 1 


:: F'Cii EFu- 2 332 :: F'C 

1 080 

POKEfl.38 

•7; 

Pot EEl-3 7,33 

1 030 

Ft EM.MOV 

E L_ 

:;; l 3 E IP BR'SE. 

1 108 

GETFl# 



i 1 1 0 

IFR:ti= u Z M 

THE 

4PR-F;.2 I FRO 1.3:2 

1 120 

I FR$~" M " 

THE 

■1fl—fi + 2 s I. FR>28;1 

1 :i 30 

I FH:0="M" 

THE 

40 FT SUE: 20 0O 

1 1 40 

RETURN 



2000 

REM..F 

IRE 

subroutine:.. 

20 1 0 

P=:fi— 1 1 3 



3020 

FOR I = 1 ro 

;;;»•“> 


2030 

T'okep , 11 

T P 

JKEP+S4272 r 1 

£040 

POREF : '+40 

r 3 2 


2050 

P-iP.40 



2060 

I F-F'EEK < P 

:■ o 

32THENGOSUB30! 

2070 

NEXT 



2000 

POKEP+40 



2090 

RETURN 



3 {•.:;( 0 !•_•;! 

REM..4- 

I T 

subrout i me;: - 

30 1 0 

POKEP+40 

3 2 


3 Pi 20 

I FREER F 

> 1 

12,'T H E N FI -= F' ■+■ 4 O 

3030 

I FREER 'I F 

> =i 1 

10THEHH=P+37 

2040 

I FF'EER F F 

-? 

5THENFMP.1 

30510 

I FREER F F 

j' 

4THENTMP-2 

3060 

FOR 11=0TC 

3 


3070 

POREH + I 

“3 „ 

NEXT 

3080 

FOR I ~40T 

037 

STEP.1 

3090 

FOR EH -1 ., 

32 U 

NEXT 

3 ;i. 0 0 

RETURN 
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•VTHE-NFI^ 1 
::THEHFl=2 


(1) Screen set up 

LINE 10: 

LINE 20. 


Clears the screen. 

Colors the screen black. 
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LINE 30: 


The loop from 
LINE 50 to 130: 

LINES 60 110: 


Defines variables that will be used later on. 

S is the start of screen memory. 

SC is the screen code of the current alien character being printed. 
A is the screen code of the laser base. 

C is the start of color memory. 

CC is the color code of the current alien character being printed. 


Prints a line of aliens. 

POKE an alien character to the screen. 

The alien is made up of six character blocks. 


r 

q 

Q 

n 






If the top left character is given a screen code SC then the other blocks 
that make up the alien are as follows: 


sc 

SC+1 

SC+2 

SC+3 


SC+41 

SC+42 



The POKE codes for each character are: 


112 

87 

87 

110 


75 

74 



The color number POKEd in is 5; i.e. green. 
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LINE 1 20: After printing the first alien the screen code is increased by 4. in preparation 

for the next time through the loop. 

LINE 1 50: After printing the first row of aliens, the screen code must be increased by 40. 

This means that a line is skipped before the next row of aliens is printed. 


(2) Main program loop 

(a ) Rub out old alien 

LINES 220 250: Remember that S was the original start of the screen and was not altered, 

during the screen set up, from its original value of 1024. The program now 
uses S to position the first alien rubout. 

52 is the POKE code of a SPACE. 

LINE 2b0: The subroutine at 1000 is executed at this point to move the laser base. 

(b) Print new alien 

LINE 280: SC now takes on a value 4 rows down the screen from the position of S. 

The color code CC is related to the screen code. 

LINES 290 330: Using SC for position, a new alien is colored and printed in the same way as 

in lines 80 120. 

LINE 340: Laser base subroutine again executed. 

LINE 350: Clears out the keyboard buffer. 

To avoid losing characters if the keyboard is pressed several times in quick 
succession, the extra characters are stored in a 'buffer', until the computer 
is ready to read them. The buffer can hold up to 10 characters and they 
are read on a ‘first-in-first-out' basis. To ensure that only one character is 
available to be read at line 430. this line loops back on itself until the buffer 
is clear. 

LINE 5o0: Increases the value oi S by 4 in preparation tor the next time through the 

loop. 

It tlie value oi S is such that it is the first location on a new line, then S is 
increased by 40 to skip a line. 


LINE 370: 
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LIN I 500: Normally, location 1744 contains the value 32. i.e. the screen code for a 

SPA( I . Line 500 tests the contents of this location to see it' an alien has 
reached it. Only when the contents of the location change ('tom 37 is the 
program allowed to continue in order to execute the 'Lnd of game' routine. 


(3) End of game 
LINE 650: 

LINES 630 660: 

LINES 670 710: 

LINE 720: 

LINE 730. 

LINE 740: 


Clear the screen. 

Form a loop in which the screen is POKEd, first green, then red. Note the use 
of 'dummy' loops to slow the flashes down. 

The cursor is positioned in the middle of the screen ready to print a message. 
Note that PRINT causes the cursor to move one line down the screen. 
TAB(X) moves the cursor X spaces in from the left-hand margin. 

Clears the keyboard buffer, as previously explained. 

Loops back on itself until the SPACE bar is pressed. 

RUNs the program again. 


(4) The subroutines 
(a) The laser base subroutine 

LINE 1010: B is the color code of the laser base. 

A is the position of the laser base. 

This line relates B to A. 

LINES 1020 1050: POKE the laser characters and colours to the screen. 

The laser base is made up of 4 characters: 
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LINES 1060 

LINE 1 100: 

LINE 1 10: 

LINE 1 120: 

LINE 1130: 


If the bottom left character is given a screen code A, then the other blocks 
are related as follows: 



Note that the code for a REVERSED character is 128+POKE code. So a 
reverse SPACE has a code of 128+32=160. 

The color number is 2; i.e. red. 

1080: Prints two blocks of four SPACEs; one on each side ot the current laser 
base position. This means that as the laser is moved to the right or to the 
left, so the old laser is rubbed out. 

The GET command reads any character input at the keyboard, and this is 
stored in the string variable AS. 

IF the letter input is a Z\ then the laser position is reduced by 2; i.e. when 
the laser is replotted it will appear 2 character blocks to the left. 

The second part of the line sets a lower limit on the value ot A. II A were 
to be reduced past 1084 then the laser would appear one line up and at the 
right-hand side of the screen at location 1982. 

Similarly if 'X' is input then the laser position is increased by 2. The upper 
limit for A is also set. (Beware! Weird things can start happening if you 
inadvertently POKE numbers into locations greater than 2023.) 

If "M" is input then the program is sent off to the subroutine, starting at 
line 2000. 


LINE 1 140: 


RETURNs to the main program. 
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(b) Fire submit tine 
LINE 2010: 

LINE 2020: 


LINE 2030: 
LINE 2040: 
LINE 2050: 

LINE 2060: 


LINE 2060: 

(c) Hit subroutine 
LINE 3010: 

LINES 3020 3050: 


Relates P to A. P is the initial position of the missile. I is set to zero. 

The subroutine takes the form of a loop which starts here. Each time the 
loop is executed, the value of I is increased by 1. 

When I reaches 22 then the missile has reached the top of the screen. If this 
is the case then the missile is POKEd off the screen, and the program jumps 
out of the loop to RETURN to the main program. 

POKEs the missile color and character to position P on the screen. 

Rubs out the previous missile position. 

The value of P is reduced by 40: i.e. P is now given the value of a location 
one place up the screen. The program is sent back to line 2020 to execute 
the loop again. 

The PEEK looks at the location directly above the current value of P. If the 
value in that location is not 32. i.e. a SPACE, then, firstly the missile is 
rubbed out. and secondly the program is sent to a subroutine at line 3000. 
This subroutine rubs out the alien hit. 

Note: It is possible to call up a subroutine from inside another, but there is 
a limit to the number of tiers of subroutines that one can have ‘open' at any¬ 
one time. 

RETLfRNs the program to subroutine 1000. 


Rubs out the missile. 

The location P is PEEKed. It may contain any one of 4 parts of the alien 
character. The value of H is set as follows: 


r 

□ 

Qh 

! H 

L 

J 

\ 1 —■— 
Vj 

1 

_L J 


LINES 3070- 3090: Prints a 4*2 rubout block over the alien as follows: 
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H—40 

H-39 

CO 

CO 

H-37 

H 

H+1 

H+2 

H+3 


LINK 3 100: RETURNS the program to subroutine 2000. 


PROGRAM STRUCTURE 

Note that the program is made up of three distinct parts: 

1. A 'set up' routine. 

2. The main program loop. 

3. Subroutines that are called up as necessary. 

Putting the laser base control onto a subroutine means that it can he called up more than once 
during the main program loop. This can be a useful structure as it is often the user-controlled 
movement that is unresponsive in games of this type written in BASIC. Sensitivity can be greatly 
increased by accessing user control routines at several points in the main loop. 




Printing to the screen 


In the last chapter we looked at making characters appear on the screen by using the POkh command. 
An alternative to this to to use the PRINT command. The Commodore version of PRINT is a 
powerful tool with many different aspects to its operation. In this chapter we shall look at these 
PRINT functions available to you on your Commodore 64. 


PRINT AND PUNCTUATION 

With some important exceptions which will be explained later, the PRINT statement in BASIC will 
act in two ways. Firstly 

PRINT X 

will cause the current value of the variable X to the screen. PRINT'S second mode of operation is 
to copy a set ot characters to the screen. These characters being placed inside quotation marks 
after the PRINT command. For example 

PRINT "GOOD MORNING" 

It is possible to combine two or more variables and or strings of characters by the use of 
punctuation. 

If two items to be PRINTed are separated by a SEMICOL ON (;). then the second item will be 
positioned immediately after the first: 
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10 AS=”HEL”:BS=”LO" 

20 PRINT AStBS 

This program will PRINT the complete word HP.LLO on the screen. 1 he two exceptions to this 
rule are: 

( 1) Numeric items are followed by a space, 

(2) Positive numbers are preceded by a space, (In the case ot negative quantities this space is 
used for the minus sign.) 

fhe screen is divided vertically into /ones, ten spaces wide. If a COMMA (,) is used to separate 
two items on a line, then the second item will be placed at the start ot the next zone. Ibis facility 
is especially useful forming tables of values etc. If we amend line 20 above so that the semicolon is 
replaced by a comma then the resulting output will look like this: 

HP. 1 LO 

If a semicolon or comma is present at the end ot a list of items then this will cause the first item in 
any following PRINT statement to be placed on the same line and to be positioned in accordance 
with the punctuation. When no punctuation is present at the end then any later items will commence 
at the beginning of a new line. 

POSITIONING OUTPUT 

(1) The TAB command 

The TAB command enables you to position the beginning ot any output. Its format is as follows: 
PRINT I \B(!?)'<TNI R1 '' 

litis will cause the word CENTRE to be printed starting at the eighteenth character position across 
the screen. The vertical position ot CENTRE is determined by the prior position of the cursor. The 
screen is 40 character spaces wide, but the TAB number can be any integer in the range 0 255. 
l ienee TAB(KO) would commence PRINTing two lines below the old cursor position. 

(2) The cursor controls 

You may have already experienced some strange happenings whilst trying to edit characters inside 
quotation marks. When a quote <") is typed the cursor controls cease to operate in their normal 
way. The cursor controls are said to he in quote mode. Even though they appear as reversed 
characters within the quotation marks, their function is to position the cursor during a program 
run. For example try Rl'Ning this program which also demonstrates the 64 s internal clock, T1S. 
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5 RE M W- 4 4 C H ft F' 3 F' R 0 G1 * $ 4 
1 8 R E M 4 44 4 * 4 4 44’ 

$& REM 4 4 

38 REM * TIMER * 

48 ITEM 4 4 

50 REM 4444*4444 

6 8 P RIN T IT E M C L E Fl R S C R E E H 

7 0 1 “ J ::::: 1 ‘ 0 0 000 0 1 ‘ 

80 PRINT TREE ItO "□" ; TIT 
90 GOTO 80 

1@0 REM TO END PRESS RUN,-'STOP 


Each time the program executes the loop a new print line is started. However, due to the "cursor 
up' control character, the original line is over-printed with the new value of TIS. Incidentally, the 
six digits of TIS are HHMMSS. 

When using the cursor controls in quote mode it is important to bear in mind the cursor 
position just prior to the execution of the PRINT statement containing them. The HOME and 
CLR/HOME functions also operate in quote mode and can be used to help keep track of the 
cursor position during a program run. 

Note: The program listings in this book do not use the cursor control characters. For repro¬ 
graphic reasons we have adopted the alternative CHRS format. To demonstrate this, here is the 
Tinier program again. "Cursor up" control is done by means of CHR$(145 ). A full list of CHRS 
codes is in Appendix F of the User Manual. 

5 R E M 4 4 4 C H ft P 3 P R 0 G2 444 
10 REM 4444444*4 
20 REM 4 4 

30 REM 4 TIMER 4 

48 REM 4 IT GRIN 4 

50 REM 4 4 

68 FT EM 444444444 

70 PR INTCHETC147> sREM CLEAR SCREEN 
8 0 T I : $ ~ " 000000 11 
90 PRI NT TAB<16 >CHET<145 > rTIT 
100 GOTO 98 

110 REM TO END PRESS RUN, 'STOP 
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1 tie lull set. o' cursor control charters is: 


Rev 


1||Hbclr7home 

jB Wf^CRSMJ 

sHtFTruRsnr 

|MB^rsr=} 


uss 


Appears as 

E3 

□ 

m 

□ 

H 

II 


(3) Color 

The color of characters to be printed can also he programmed in quote mode. The color control 
characters max appeal at any position along the PRINT line and any characters to the right will 
appear in that coloi until a new color control appears. The color controls are programmed in quote 
mode the number keys in conjunction with either C'TRI or the special Commodore key. A full 
table of the colors available is on page 5" of the User Manual. 

This simple progam demonstrates their function. 


5 R IT Cl A :'k +: i I H H P 3 P P f i C> 3 :i i i: + * 

■} 0 j ; ;; pr pr !}i n, e r : >c y m v r a 

30 F;[ppi 3 Rfi IHBOCI A 
■40 RE hi T * 

1:1 ip f. IT hi 4 4 4 4 4 4 4 4 4 4: 4 

60 PRINT NIT 

30 P0l<EU328i. „ ;|. i ; REM GR10V l ; 3RC ! 
3 pi p PIH T 11 ’p MBMBIgMeMBMBlBMa ’ 1 ;; F • EI 
0110! F ,01 R I ;:: 0 30 I 0 3 1'10 p 2 ;; F' E (' I U F ; ‘ • • 


100 PRINT 


ROUND 

CURSOR DOUN 


1,00 PRINT TRIM 
1 30 FOR I307 03 
140 PRINT mlK 


- " TITIlMRr JNil ilNSEifeJJil 

TEF'2 ::REN .ANlJ DO FIN 

I'lSRlelRl'iH iulS321J3fc,.0 m " 


1 El O 











PRINTING TO THE SCREEN 33 


(4) The Commodore character set 

On the majority of keys there are two small squares, each containing a special character. These 
may be PRINTed out by placing them within quotes. The right-hand character on any key is 
PRINTed by pressing the key and SHIFT. The left-hand one is obtained by using the key together 
with the Commodore flag key. For example, to create our alien friend from Chapter 2, type in 
this (C= is the Commodore flag key): 

C=/A SHIFT/W SHIFT/W C=/S (RETURN) 

SPACE SH1FT/K SHIFT/J 


(5) Reverse mode 

Pressing CTRL and 9 together inside quotation marks causes in inverse R' to appear. This is the 
control character for reverse video. Any characters to the right of this will appear as ‘negatives' of 
their usual selves. Turning off reverse mode is accomplished by CTRL/0. 

Using this mode it is possible to isolate any group of characters within a string and PRINT 
them as negatives. 

This program demonstrates how reverse mode can be used to produce flashing characters. 


5 R E | v l 4 :■): 4 C H H F' 3 F"' k I...I IJ 4 4 4 '4: 
10 R E M 4' 4 4 4:4:4:4 : . N'l 4: * 4 4 

20 EEL! 4: 4 


30 REM 4: HEUflTIVE * 


48 REM 4 4 

5 & RE f'1 4 44 4444444 44 


50 F 

R I NT " 

tf i(, i 

iwii 




30 F 

FEINT" 

him 

asis 

HS" :: Rtf 

1 CURSOR DOWN 

30 F 

PINT 

THB 

: 10 

> ” I 'M 

-EEL.. I NO PRETTY" 

30 F 

RI NT 

THE: 

:: 15 

> " SilliiMI 

EGRTIVE" 

1 00 

FOR I 

1 TO 

500 

: HE N T 


1 1 0 

PR I NT 

T Fl 

3 < .1. 

5 > " Eli.iil’Tl 

FORT1VE" 

1 20 

PR I NT 

TF) 

3 ■: 1 

6> 

3 DRV " 

1 30 

pr i: NT 


in: 

" :: REM 

IIJRSOR UP 

1 40 

FOR I := 

1 TO 

500 

i; HE NT 



150 GOT090 

160 REM TO END PRESS RUN,-'STOP 
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We now have two methods at our disposal tor replacing and colouring characters on the 
scieen. Each method has its advantages and disadvantages. There is no reason why both methods 
cannot be used within the same program to fulfil different functions. Deciding which method to 
employ in any given circumstances is largely dependent on experience and personal preference. 



4 

The logical operators 
AND, OR and NOT 


THE DECIMAL SYSTEM 

Before we look at the binary system, let's look at our normal system of counting - the decimal 
system. 

In a number such as 1375 each digit has a certain value. For example, the T means 'one lot of 
a thousand’; the '3' means ‘three lots of a hundred' and so on. We could arrange 1375 in columns, 
each column having a headline as follows: 


Th H T 

U 

1 3 7 

5 

The largest number that may 

appear in any column is a 9. 

The column headings are 

based on the number 10. 

UNITS 

1 

TENS 

10 

HUNDREDS 

10*10 =100 

THOUSANDS 

10*10*10 = 1000 
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THE BINARY SYSTEM 

Just as the decimal system is based on 10, so the binary system is based on 2. The column headings 
may be found as follows: 

UNITS 1 

TWOS 2 

FOURS 2*2=4 

EIGHTS 2*2*2 = 8 

SIX 11 I NS 2*2*2*2 = 16 

The largest number that may appear in any column is a 1. Hence the only digits that are used in 
binary are 0 and 1. 

Why does a computer use binary? Well, quite simply, the number 1 can be represented by an 
electrical voltage. 0 is represented by an absence of such a voltage. 


CONVERTING FROM BINARY TO DECIMAL 

Let's convert the binary number 11001011 to decimal. 

First of all we must write out the binary number complete with column headings. 


128 64 32 

16 

8 

4 

A 

U 

1 1 0 

0 

1 

0 

1 

1 


All we now have to do is add up the values as follows: 

1*128= 128 
1*64 = 64 
1*8 = 8 
1*2 = 2 
1*1 = 1 

TOTAL = 203 

So 11001011 in binary is 203 in decimal. 
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CONVERTING FROM DECIMAL TO BINARY 

This is accomplished by repeated division by 2. For example, if we take the decimal number 203. 
let’s try to get back to its binary equivalent. 


2 ^203 rl 


j 101 

rl 

] 50 

rO 

) 25 

rl 

) 12 

rO 

) 6 

rO 

) 3 

rl 

) 1 

L _ 


0 


The binary equivalent of 203 is then found by reading the ‘remainder’ column. 


REPRESENTING NUMBERS USED BY THE LOGICAL OPERATORS 

Each Binary digiT is known as a BIT and any decimal number is stored as a series of 16 bits. For 
example, the binary equivalent of 241 is 11110001. Only 8 bits are required to represent this 
number in binary but the computer will hold 241 as 0000000011110001. the other 8 bits being 
filled with zeros. 

In this way numbers in the range -32768 to +32767 may be stored. If a number used with 
one of the logical operators is outside this range then an error message is generated. 

How are negative numbers stored? Well, here life gets a little more complex. Negative numbers 
are stored by ‘twos-complement’. Briefly, this is how it works. 

For example, let’s take the number -241. 
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We already know that +241 in 16-bit form is 00000000111100001. To represent -241 we, 
firstly change all the ones to noughts and vice versa, and secondly add 1 to the result. 



16-bit 

Decimal 


0000000011110001 

+241 

change 0s and 1 s 

1 1 1 111 1100001110 


add 1 

1111111100001111 

-241 


We now have the 'twos complement’ form for -241. We must understand and appreciate these 
processf! so that we can understand the functions offered by the logical operators. 


THE OPERATOR AND' 

\ou may have seen something before, in a program, which looks like this: 

X=35AND1 H 

fins does not mean that X = 35 + 14. i. e . 54. This is a 'logical' use of the word AND. Look at the 
eiicuit shown in fig. 4.1. The circuit consists of a battery and a bulb. Also in the circuit are two 
switches. Si and S2. What arrangement of switches would be required to light the bulb? The truth 
table for this circuit is: 


SI 

S2 

BULB 

off 

off 

off 

off 

on 

off 

on 

off 

off 

on 

on 

on 



BULB 


Fig. 4.1 


BATTERY 
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The only way the bulb will light is if SI AND S2 are in the 'on' position. If we use 0 to represent 
'off' and 1 to represent 'on' the truth table becomes: 


SI 

S2 

BULB 

0 

0 

0 

0 

1 

0 

1 

0 

0 

1 

1 

1 


Similarly the only way to get an 'output' of 1 from the bulb is if SI is 1 AND S2 is 1. We can use 
the above truth table to help us work out 
X=35AND18 

Firstly we have to convert 35 and 19 to their 16-bit binary representations. 

16-bit Decimal 

0000000000100011 35 

AND 0000000000010010 AND 18 


0000000000000010 2 

If we take the two binary numbers column by column and only write a 1 in the answer box it 
both digits are 1 then we form the answer above. Converting this back to decimal gives the number _. 
So. X=35AND18 means that X = 2. 

THE OPERTOR OR' 

Look at the different electrical circuit shown in Fig. 4.2. This time the truth table will look like this: 


SI 

S2 

BULB 

0 

0 

0 

0 

1 

1 

1 

0 

1 

1 

1 

1 
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Very simply, the bulb will light it either SI OR S2 or both are closed. 



BULB 


11 we now look at an example using the logical OR: 
B=1240 R73 



1 6-bit 


Decimal 


0000000001111100 


124 

OR 

0000000001001001 

OR 

73 


0000000001111101 


125 


Ibis time we should put a 1 in the answer box if there is any combination of Is and Os. other 
than two Os. 

Converting back to decimal tells us that 124 OR 73 = 125. 


THE OPERATOR NOT 

f in ally. let s look at the NOT operator. Again, we can model its function by means of an electrical 
ciicuit (see Fug. 4.o). In this case the bulb will light ot the switch is open and will go out if the 
switch is closed. The truth table, then, is very simple: 
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s 

BULB 

0 

1 

1 

0 



Fig. 4.3 


In (his way the NOT operator forms the ‘twos complement' of the operand (see earlier in this 
chapter for an explanation of ‘twos complement'). 

A useful expression which connects any integer X with its complement is: 

X = (-(X+1)) 

Examples of the NOT operator: 

NOT253 = -254 
NOT16 =-17 
NOT-89 = 88 
etc. 


FURTHER USES OF AND’ AND OR’ 

The operators AND and OR can also be used, in a more familiar way. to relate two or more state¬ 
ments in a conditional statement. Look at the following program and before you try to run it see 
if you can predict the outcome. 

10 CHR$( 147): REM CLEAR SCREEN 
20 FORI= 1T08 
30 F0RJ=1T05 

40 IF1=3ANDJ=2THEN PR1NTLJ 
50 NEXT:NEXT 
60 END 
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The program will run through the pair of nested loops but with only print out 1 and J IF I is 3 and 
J is 2. Obviously RUNning this program will yield the result: 

3 2 

This seems to be a natural usage of AND. OR can be used in much the same way, either by itself or 
in conjunction with other operators. Amend line 40 to read 

40 IF1 =3 AND J=20 R J =4TH E N PRINT!,J 

RUNning the program with this new line will result in 

1 4 

2 4 

3 2 

3 4 

4 4 

5 4 

6 4 

7 4 

8 4 

The computer must be carrying out the AND operation first. Hence 1 and J will be printed out if 
either I = 3 and J = 2, or if J = 4. 

We can change the order of priority by the use of brackets. Amend line 40 to read 

40 IFI=3AND(J=20RJ=4)THEN PR1NTI.J 

This time we get the outcome 

3 2 

3 4 

The bracket around the OR part of the statement means that this operation is carried out first. 

The order of priority on the Commodore 64. when AND and OR are combined, is such that 
the AND is carried out first unless there are brackets present to indicate a different priority. 

In this chapter we have learned several important facets of the computer's internal operation. 
This knowledge will be utilized at various points in the rest of the book. 



User-defined graphics 


Although some impressive results may be obtained from use ot the standard Commodore character 
set, you will at some stage want to be able to design and use your own characters. I his process is 
not as difficult as it sounds. In this chapter you will be taken gently through the steps needed to 
construct user-defined characters. 


THE SUPERSHIFTER PROGRAM 

Unfortunately, the standard set of characters is stored in ROM memory. This means that we cannot 
redesign any characters straight away. Before we can really start the design process we must copy 
the character set from ROM and RAM. Look at the table of screen codes in Appendix E of the 
User Manual. We are still going to need the alphabet set. the numbers 1 to 9. and some of the 
punctuation, but if we copy the Commodore characters as well we are going to start eating up the 
memory available for a program. All we really require is the first 64 characters (i.e. up to and 
including the question mark). 

The SUPERSHIFTER program below is designed to do just that. SUPERSHIFTER is a BASIC 
LOADER for a MACHINE CODE program. We suggest that if you require user-defined characters 
as part of your program then you should use SUPERSHIFTER in a subroutine. Ot course, being a 
machine code routine. SUPERSH1F FER will accomplish its task much more quickly than the 
correspondingly BASIC routine. 

Type m SUPERSHIFTER and SAVE it for future use. 
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1 Cl Cl Cl R C; l'-'j :'{i : iij* :T ;j|>: : f : tljt: ;.,C C\ : iji; :ijn :<ji: l|j(l ;ijtl : ( j* 

1010 REM $;*; ** 

1020 R EE l Y i ■¥ *' 1 S U F' E R S HIF T E R'' * * 

1040 REM m CHARACTERS ** 

1058 IREII FROM W.& 

1060 REM ** ROM TO RFlM ** 

1 0 C 0 I’:! E::. I '1 i+i 1 'i 4 *-: : 4 : 

1 Cl I";I Cl I ':; F. I' 1 '! 0 T :<|H ; C :R $ :*(»: T :<j': T H>: 4 4 4 4 4 4 4 

1 10 0 P 0 K E ’52,4 8 :: P 01< E56... 48 :: R E M .L 0 W E R M El M T i j p 

1 110 FOR I i=828TO950 ; REM .TEMP STORE- 

1120 REEFED J ; RE M .... 

1 1 3 0 I’i Fi - Fl fl +.J ; R E M EE Fi s 1C 

1140 POKE I r ..J OREM LORDER -4 

1150 NEXT ;:EE!'i .-.- 

1160 IREFiDJ : REM .CHECKSUM. 

1 1 70i IFmoJTHENPRIHT "DATA ERROR " ; END 

1 180 SVS '■ 828 > :IREM .EXECUTE. 

1190 P0KE53272,.28 :REM .POINT TO RFlM. 

1200 REM M EC DlTT'ET- 

1 2 10 DFI T FI 1 69,0.1. 4 1 1 4 ,. 220 1 69.,. 5 I. 1 4 1 

1 0:20 DFlTFl 1 0 162 0 1 8.90 ,. .20! 8 ,. 1 57 ' @ 4:3 
1 230 DFlTFl 1 8:9 0 209 1 57 0 ,. 49 1 89,0 r 21 0 
1 240 DFiT A 1 5?’050... 1 89 ,. © ,. 2 .1. 1 , 157 ,0 5 3 
1 2 50 D Fl "I"Fi 1 890,. 2 1 2 ,1 57 ,. 0 ,. 52... 1 8 9 ,. 0 ,. 2 1 3 
1 260 DFTTFl 15'7 , Q ,. 5:3 1 89 .*0,2 :l. 4 ;|. 57 : ' 0,54 
1 270 D14 T fl 189,0,. 21 5,1 5 7,0 ... 55,2 32 ,2 2 4 
12 8 O D FiT14 0:55 , 2 O FE ,. 203... 1 7 8 ,. 2 55 ,. 208 r 1. 4 ;[ 

1 290 D ! :: i T 14 255... 4 8,1 7:3... 0:5 5 ,• 209,1 4 1 ,. 2 5 5 
1 ■ E 0 0 D Fi T Fi 4 9... .1.73... 25 5,2 10 ,. ]. 4 j. „ 2 5 5 5 0 
1 31C D Fi T14 1 7 3,. 25 5, 21 1 , 1 4.1. , 255,51 1 7 :$ 

1 32 0 0FIT 14 2 55, 21 2 , 1 41 25 552., 1 ?' 3 ,. 2 5 5 
1 3 30 D Fl T fl 2 1 3,1 4 1 , 2 5 5,58,1 705 2 5 'fi , 2 J. 4 
1348 DFlT Fl 14 1 ,. 255,541 69 ,515 14 ;[ ,. 3 . 0 
1350 149 FFi 1 6 .9,1 , 1 4 1 .1. 4,220,169,23,1 4 1 
1 3 6 @ D Fi T f! 2 4 ... 2:08, 96 

1370 REM .CHECKSUM^ 

1330 DFlTFi 16246 
14001 RETURN 
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DESIGNING YOUR OWN CHARACTERS 

It’ you carefully study any normal character on the screen, you will see that it is made up of a 
pattern of small squares. These squares are called picture elements, or PIXELS. Each character is 
actually a square, 8 pixels wide and 8 pixels high. Some of the pixels in this 8*8 grid are turned on. 
These are the ones you can see. The other pixels making up the grid are turned off. 

Fig. 5.1 shows how a capital ‘V’ is made. Notice that each row of 8 pixels can be thought 
of as a binary number. A bit 1 represents a pixel which is turned on and a bit 0 represents a pixel 
turned off. Each binary number is 8 bits, or 1 BYTE long. This can be converted to a decimal 
number. 


BINARY DECIMAL 
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128 64 32 16 8 4 2 U 

0 110 0 110 
0 110 0 110 
0 110 0 110 
0 110 0 110 
0 110 0 110 
0 0 11110 0 
0 0 0 1 1 0 0 0 
00000000 


1 0 2 
1 0 2 
1 0 2 
1 0 2 
1 0 2 
6 0 
2 4 
0 


Fig. 5.1 


After using SUPERSHIFTER, the character set will be held in RAM memory. The starting 
location for the 'shifted' character set is 12288. Each location can hold one byte of information. 
It takes 8 bytes to store the information required to define one character. Hence the 8 bytes 
defining the first character ’ will be held in locations: 


12288 

12289 

12290 

12291 

12292 

12293 

12294 

12295 
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The next chaiactei A s data will be held in locations 1 2296 - 1 2303, and so on. There is a simple 
relationship between a character's screen code, as given in Appendix E of the User Manual and the 
first memory location for that character in RAM: 

1st location in RAM = 1 2288 + (8 * Screen Code) 

Now let's design our own character. Firstly, we must either type in or load SUPERSHIFTER. 
We can now build the rest of the program around it. SUPERSHIFTER should be used as a sub- 
loutine. starting at line 1000. After loading SUPERSHIFTER, the first line of our program will be: 

10GOSUB 1000: REM SUPERSHIFTER 

We must now design our character. 1 have decided to draw an alien-type being on an 8*8 grid. 
The design is then represented in binary and the binary is converted to decimal (see Fig. 5.2). You 
can use my design, or make one up yourself! Eventually we end up wdth 8 decimal numbers which 
define our character. All that remains to do is to POKE these numbers into some locations in RAM. 
If we do this we are going to overwrite the data for one of the characters we have shifted from 
ROM. It is best to choose a character that is not going to be used at any stage in the program. 
For our purposes, the ampersand seems a safe bet. 

BINARY DECIMAL 



Fig. 5.2 


128 64 32 16 8 4 2 U 

00000000 
0 0 11110 0 
0 10 110 10 
11111111 
11111111 
10 11110 1 
0 0 1 0 0 1 0 0 
0 110 0 110 


0 

6 0 
9 0 
2 5 5 
2 5 5 
1 8 9 
3 6 
1 0 2 


I he ampersand s screen code is 38. We can find the first location in RAM by using the relation¬ 
ship above. 


1st location in RAM = 12288 + (8 * 38) 
= 12592 
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We can also READ in the 8 numbers as DATA and POKE them to locations between 12592 and 
12599, The following line will do this: 

20 FORI=l 2592T01 2599 : READ A: POKE I, A:NEXT 

The data for our character should be placed at the end of the program, say at line 10000. The 
full program listing is: 




RUN the program and then try to use the ampersand (SHIFT/6). You can now use our new 
character in PRINT statements, and as the screen code for our alien is still 38 we can POKE it to 
the screen and color it in the normal way. You can, of course redefine as many of the normal 64 
characters as you wish. But make sure that you don't want to use that character in its normal way. 

As you can see from the example, one user-defined character on its own is rather small. 
However, it is possible to group a few characters together to make a larger one (see the 'Alioids 
program in Chapter 2). 


MULTI-COLOR MODE 

Multi-color mode on the Commodore 64 allows you to use up to 4 colors inside each 8 by 8 
character square. Before you can start to use multi-color however, you have to turn it on. This is 
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done by setting the fifth bit of location 53270 to a 1. You could just POKE in 16 to do this, but 
other bits in this register control other graphics functions. POKEing 16 would set all the other 
bits in the register to zero. A neat way to set bit to 1 without affecting the other bits is to use the 
following POKE. This method is more fully discussed in Chapter 6. 

POKE53270.PEEK(53270)OR16 

When multi-color is switched on, the computer starts to interpret the bit patterns in a different 
way. Instead of considering them individually, as in normal mode, the bits are grouped horizontally 
into pairs. As each bit can be either on (1 ) or off (0). there are 4 possible combinations when the 
bits are paired. These are: 0 0, 0 1. 1 0, and 1 1. Each of these patterns relates to a color in multi¬ 
color mode and both bits are assigned that color. The 4 colors used can be programmed by POKEing 
a color code number into the appropriate location. Table 4.1 shows how the bit pairs select color 
and the location into which you can POKE the color code. Unfortunately, if you use multi-color 
mode then horizontal resolution will be reduced by a factor of 2. To illustrate the use of multi-color 
mode, lets look at our alien character again. Once multi-color is switched on then the bit patterns 
which defined the alien are interpreted as shown in Fig. 5.3. You can see that the same bit patterns 
in multi-color mode draw a picture that has little relation to the original alien character. Hence it is 
important when designing characters to bear in mind whether they are going to appear in normal 
or multi-color modes. 



0 0 
0 0 
0 1 
1 1 
1 1 
1 0 
0 0 
0 1 


BINARY 

0 0 0 0 

11 11 

0 1 10 

11 11 

11 11 

11 11 

10 0 1 

10 0 1 



Fig. 5.3 



Screen color 

Background color 1 


1 I I Background color 2 
m Character color 
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Table 5.1 


Bit pair 

Color 

Loocation 

0 0 

Normal screen color 

53281 

0 1 

Background color 1 

53282 

1 0 

Background color 2 

53283 

1 1 

Normal character color 

color RAM 


Ordinarily, when multi-color mode is OFF, you can choose any one of 16 colours and POKE 
them to the screen using numbers from 0 to 15. In multi-color mode the color code is used to turn 
on multi-color for any one character. This is controlled by the fourth bit in each color code. If this 
bit is set to 1 then the character is displayed in multi-color, and if the bit is 0 then the character is 
displayed normally. As the color code is held in 4 bits (or nibble) this means that when multi-color 
mode is ON the first three bits dictate color lor a character and the fourth bit dictates whether the 
character is displayed in normal or multi-color mode. Table 5.2 makes this clear. It can be seen 
trom the table that it multi-color mode is turned on then color codes 0- 7 cause a character to be 
displayed in the normal way in any one ot eight colors. Color codes from 8 to 15 repeat the same 
eight colors but this time the character will be displayed in multi-color. 

It you still have the character defining program in the computer, try making these alterations 
to it: 

Change line 30 to: 

30 POKE 53270,PEEK(53270)OR 16 

This will turn on multi-color mode. Now add the following lines: 

40 POKE53281,0 : REM SET SCREEN TO BLACK 
50 POKE53282,1 : REM SET BACKGROUND COL 1 TO WHITE 
60 POKE53283,5 :REM SET BACKGROUND COL 2 TO GREEN 
70 PRINT CHRS( 147): REM CLEAR SCREEN 
80 FORI=1024TO2023STEP4 

90 POKEI.38 :POKE]+2,38: REM POKES & TO SCREEN 
100 POKE54272+1,10 :POKE54272+l+2,2 
110 NEXT 
120 END 
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The loop from lines 90 to 110 POKEs our alien to every alternate character space on the screen. 
Note that when the characters are colored at line 100. the first of each pair of aliens is colored in 
multi-color with a red foreground. The second alien is. however, displayed in the normal way and 
colored red. 


Table 5.2 


Color 

code 

Binary 

nibble 

Multi-color ON 

Multi-color OFF 

Display 

Color 

0 

0000 

normal 

black 

black 

1 

0001 

normal 

white 

white 

1 

0010 

normal 

red 

red 

3 

0011 

normal 

cyan 

cyan 

4 

0100 

normal 

purple 

purple 

5 

010! 

norm al 

green 

green 

6 

0110 

normal 

blue 

blue 

7 

0111 

normal 

yellow 

yellow 

8 

1000 

multi 

black 

orange 

9 

1001 

multi 

white 

brown 

10 

1010 

multi 

red 

light red 

11 

1011 

multi 

cyan 

gray 1 

12 

1100 

multi 

purple 

gray 2 

13 

1101 

multi 

green 

light green 

14 

1110 

multi 

blue 

light blue 

15 

mi 

multi 

yellow 

gray 3 





Sprites 


Sprites are a special feature of the Commodore 64's graphics capabilities, and make action games 
much easier to program. They are made up of 504 pixels arranged in a rectangle 24 pixels wide by 
21 pixels high. Moving characters on a screen look rather jerky. This is because they jump a block 
of 8 pixels each time they move from one screen location to another. Using sprites we can over¬ 
come this problem, because sprites have the ability to move one pixel at a time. Other features of 
sprites include priority and collision detection. The first of these means that sprites can appear to 
move in front of or behind other sprites. The second means that it is possible to detect either when 
two sprites collide or when a sprite collides with background data. More about this later. Let's get 
down to creating a sprite. 

DESIGNING A SPRITE 

The process of sprite design is very similar to that of designing user-defined characters, except 
that we are no longer restricted to an 8 by 8 grid. As already mentioned, a sprite is made up of a 
rectangular grid. 24 by 21 pixels, as shown in Fig. 6.1. Notice that the rectangle has also been 
divided into three columns each eight pixels wide. The first step then is to shade in the squares you 
want to be visible in the final sprite. Any square not shaded in will be transparent and anything in 
the background will show through. Fig. 6.2 shows a design of mine. 

The information contained in the sprite picture has to be converted into numbers that can be 
read in by the computer. This is done in a similar way to the method used when dealing with user- 
defined characters. If we take the top row of the sprite, there are 24 pixels, divided into 3 groups 
of 8. As each pixel can be represented by a bit, then each group of 8 is a byte. Each byte of 
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Fig. 6.1 
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Column 1 


Column 2 


Column 3 



»— 

CSI 

CO 

“5 

■5 

"0 

o 

0 

0 

255 

0 

255 

254 

0 

127 

252 

0 

63 

240 

0 

15 

232 

0 

23 

228 

0 

39 

194 

0 

67 

129 

24 

129 

0 

189 

0 

0 

102 

0 

0 

102 

0 

0 

102 

0 

0 

189 

0 

129 

24 

129 

194 

0 

67 

228 

0 

39 

232 

0 

23 

240 

0 

15 

252 

0 

63 

254 

0 

127 

255 

0 

255 
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information can be converted to a decimal number in the range 0—255. So looking at the top row 
again, the first byte is 11111111, which converted to decimal is 255. The second byte is 00000000, 
which is 0 in decimal. The third byte is again 11111111, i.e. 255. Moving to the second row, the 
first byte is 11111110. In decimal this is 254. If you keep working your w'ay down through all 
21 rows, you will eventually end up with 21 rows of numbers with three numbers in each row, 
giving you a total of 63 items of data. Now let us look at how this data can be used to form a 
picture on the screen. 

WRITING A SIMPLE SPRITE PROGRAM 

When you have disigned your sprite and converted your sprite to data numbers there are still 
several important steps to be carried out before your sprite will appear. These are: 

1. Set memory pointers. 

2. Read in the data and poke it into special locations. 

3. Color the sprite. 

4. Position the sprite on the screen. 

5. Turn on the sprite. 

Each of these steps will be explained in more detail later on, so don't panic. 

There are 8 sprites readily available on the Commodore 64; the sprites being numbered from 
0 to 7. We are going to let our sprite be sprite 0. 

The location with address 2040 holds the memory pointer for sprite 0. This pointer indicates 
the location at which the first piece of data for sprite 0 is held. For our purposes the memory 
pointer should have a value 162. To carry out step 1 then, we should POKE 2040 with 192. 

We are going to store our sprite data in the 63 locations between 12288 and 12350. All we 
have to do to achieve this is to READ in each item of data in turn and POKE it to the corresponding 
location. 

The color for each sprite is held in a particular location (53287 to 53294 for sprites 0 to 7). 
To color a sprite POKE a number between 0 and 15 into one of these locations. It is often easier 
to refer to locations on the VIC chip by relating them to the first location on the chip, 53248. 
If we call this number ‘V’ then the color for sprite 0 will be held in location V+39. 

The position of sprite 0 is defined by its horizontal X coordinate and its vertical Y coordinate. 
These two coordintes define the position of the top left-hand corner of the sprite rectangle. The X 
coordinate is held in location V (53248). and Y coordinate is held in V+l (53249). 

Once these parameters have been set all that remains to be done is to turn on the sprite. This 
is done by POKEing V+21 with 1. 
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( omplete with its lines ot data and a command to clear the screen is a program that will display 
our sprite in a beautiful shade of black on the screen. Note that if locations are referred to as ‘V+ 
something then V must be defined as being equal to 53248 at the beginning of the program. 


1 REF hi 444 CHOP 6 F'ROG % lit*4 4 

2 RE ! v i :4>:•+: KH:+? 

3 R E hi if: 4 * 4 4 if: 4 4 4 4 4 


4 REM 44 44 

5 REM 44 SPRITE 44 

6 RE:hi 44 DEMO 44 

7 R E: hi 4 4 # 1 4 ¥ 

8 RIFF hi 4 if 4- 4 


S' R E hi 4 4 lilt 4 : 4 4 : 4 : 44:414 4 : 

1 (J R E hi 4; 4 4 4 4:4 4 4 4 4 4 4 

1 .1. P EIM T C H R ■$ C .1.4 7 > :: R E M C!.... E Fl R 8 C R E E hi 

2 0 R E M 8 E T M E hi P 01N T E R : VIS £ 1" fl R T 0 F VIC 

3 8 P 01< E 2 04 0,. .1. S' 2 ; V - 5324 8 
40 RE hi READ SPRITE DATA 

5 0 F 0 RI 1.2288T012288+82 ;; R E fl D Fl s P u K EI ,. Fl 
58 KEPT 

60 REM COLOUR SPRITE BLOCK 
70 POKES'+ 3:30 
80 RE hi POSITION SPRITE 
9 0 F' O K EF V,. 10 0 : P 0 i< E V + 1 1 0 0 

100 REM TURN SPRITE ON 

1 10 POKEFV + 21 , 1 

190 REh'l SPRITE DO TO 

2 00 D fl T Fl 2 5 5, 0255,254., 0,127,252 ,• 0,6 3 
210 D Fl 1” Fl2400,15,2320... 23,2280, 3.9 
220 DFlTii 194.,0,67129>24, 129,0189, 0 
230 DOT00 102.00 

240 DFIT 00 ... 102,-0 
250 DRTOO,102,0 

260 DOT00 , 189,8,129,24 , .129 , 194,0,67 
2 70 DHTFl22 8 ,0,39,232,0,23,240,0, 15 
280 D fl T Fl252,0,63,254,0,127,255,0,255 
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Type in the program and RUN it. If the sprite doesn't look the way its supposed to then 
check your lines of data carefully, as it is easy to make a mistake here. Once you have got the 
sprite on the screen then let's play with some of the other features of sprites that we haven't 
touched on yet. 

Try entering this command in immediate mode: 

POKE V+29.1 

We can expand our sprite to twice its original width using this POKE instruction. POKEing V+29 
with 0 will turn this effect off. Do this and then 


POKE V+23.1 

This expands tire sprite in the vertical direction. Of course you can expand in both directions at 
once. POKEV+29 with 1 again to see this. 

We can recolor our sprite at will by just POKEing in another number between 0 and 15 into 
V+39. Try POKEV+39,7 to change the sprite's color to yellow. 

Moving the sprite is also easy. POKEing V with 200 will cause the sprite to jump 100 pixels 
to the right. To get smooth movement across the screen enter this line in immediate mode: 

FORX=50TO250 : POKE V.X : NEXT 

Be ready, because when you press RETURN the sprite will move smoothly but quickly across the 
screen. If you want a more leisurely pace then edit your line to insert a dummy loop 

FOR J=1T0500: NEXT 


inside the main loop. The speed of travel is determined by the length of this dummy loop. Try 
replacing 500 with some other numbers. 

We can do the same sort of thing in the vertical direction. Try 

FORY=50TOl 50: POKE V+l.Y: FORJ = lTO500: NEXT: NEXT 

to see this. If you alter the 150 in the "Y" loop to 250 and press return again, something curious 
happens. When the sprite reaches the bottom of the screen it just keeps going! This doesn't mean 
that we have lost the sprite, it just means that the sprite has moved out of view. It will re-emerge 
if you type in 

FORY=250T050STEP~ 1: POKEV+l.Y : FORJ=lTO500:NEXT:NEXT 


This effect can be quite useful in games. 
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We can turn the sprite on and off without losing it by POKEing V+21 with 0. To switch it on 
again we just POKEV+21,1. 

There are really only two ways to get rid of a sprite entirely. One is to turn the machine off. 
the other is to press RUN/STOP and RESTORE simultaneously. 

We have now had a fairly superficial look at sprites. Now let's find out about each of the 
functions in more detail. 


MEMORY POINTERS 

As previously mentioned there are 8 sprites easily available on the Commodore 64. Each of them 
lias a location in which to hold its memory pointer. These are as follows: 


1 

j Sprite 
number 

0 

1 

1 

3 

4 

5 

6 

7 

Location 

2040 

2041 

2042 

2043 

2044 

2045 

2046 

2047 

Memory 

pointers 

192 

_ 

193 

— 

194 

195 

196 

197 

198 

199 


Each of the pointer numbers refer to a particular area of memory in which the data for that 
spiite is stored. It is possible to achieve some interesting effects by playing around with these 
pointers. For example. 192 points to the 63 bytes of memory starting at 12288. The pointer 
number 193. however, points to the 63 bytes which start at 12352. If location 2040 is POKEJ 
with 192 then sprite 0 will get its data from the area starting at 12288. If, however, at some stage 
during a program it is required to change the shape of sprite 0 (say. after a collision) then this can 
be done simply by having the data for the shape already tucked away in locations 1 2352 to 12414 
and switching the pointer number in 2040 to 193. 

The locations which are normally used to store sprite data are: 


Sprite 

12288 

12352 

12416 

12480 

1 2544 

I 2608 

12672 

12736 

data 

to 

to 

to 

to 

to 

to 

to 

to 

locations 

12350 

_ 

12414 

_ 

12478 

12542 

1 2606 

12670 

12734 

12798 





58 SPRITES 


As well as these locations you can also use the cassette buffer to store some ot your sprite data. 
The relevant locations and their memory pointers are: 


Alternative memory areas 


Sprite 

number 

0 

1 

1 

Memory 

pointers 

13 

14 

15 

Data 

832 

896 

960 

locations 

to 

to 

to 


894 

958 

1022 


COLORING SPRITES 

Giving a sprite a single color is quite straightforward. All that is required is to POKE in the color 
number into the relevant location. It V = 53248 then the color registei tor each spiite is. 


Sprite 

number 

0 

1 


3 

4 l 

5 

6 

7 

Color 

register 

V+39 

V+40 

V+41 

V+42 

V+43 

V+44 

V+4 5 

V+46 


There is also a way of coloring your sprites in more than one color. This is done by setting the 
sprite to multi-color mode. There is only one multi-color register tor all 8 sprites. There are 8 bits 
in the register and each bit corresponds to a sprite. It a particular bit is 1, then that spiite is set to 
multi-color mode. If the bit is 0 then the sprite is colored in the normal way. 
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The simplest way to set any particular bit is to POKE in a decimal number. For example, if we 
wished to set sprite 4 to multi-color mode then we would POKE V+28 with 16. This because 16 in 
binary is 1000 and so POKEing it to the multi-color register would set the fifth bit to one. This 
can be seen more easily with the aid of a diagram. Assuming that the register is initially set to 0: 


Set sprite 

7 

6 

5 

4 

3 

1 

1 

0 


128 

64 

32 

16 

8 

4 

0 

u 

Multi-colour 









register 

0 

0 

o ! 

0 

o 1 

0 

0 

0 

POKE with 16 

° 1 

0 

o 

_U 

1 

0 

0 

0 

0 


Once multi-color has been set lor a particular sprite then that sprite is analysed in a different 
way. The computer now pairs 2 pixels together and use this information to decide the color of that 
paii. Theie aie 4 possible combinations ot states that a pair of pixels can be in. 


State Color 


0 0 

Both pixels off 

Transparent. Background data shows through 

0 1 

Right-hand pixel on 

Pixel pair set to MULTI-COLOUR 1 

1 0 

Left-hand pixel on 

Pixel pair set to normal SPRITE COLOUR 

1 1 

Both pixels on 

Pixel pair set to MULTI-COLOUR 2 


Multi-color 1 is specified by POKEing V+37 with a color code number. 
Multi-color 2 is specified by POKEing V+38 with a color code number. 


Unfortunately, there is only one register for each of the multi-colors to share between all the 
sprites. This means that you cannot have different multi-colors for different sprites displayed on 
the screen at the same time. 

Io demonstiate multi-color mode more fully here is a short program display a multi-colored 
spiite (see Fig. 6.o). Notice that although we have to deal with the pixels in pairs when designing 
our spiite, the decimal data is still calculated in the usual way. The progam lisitng below uses this 
data to display an expanded sprite on the screen. 




Column 1 


Column 2 


Column 3 


o 

o 


o 

o 


o 

o 



0 0 0 
255 255 252 
234 170 172 
234 86 172 
234 86 172 
234 118 172 
234 118 172 
234 118 172 
229 117 108 
229 117 108 
231 255 108 
231 255 108 
229 117 108 
229 117 108 
234 118 172 
234 118 172 
234 118 172 
234 86 172 
234 86 172 
234 170 172 
255 255 252 



Multi color 1 — Red 



Sprite color —Green 


[ I | Multi color 2 — Black 


Background color 
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0 R E:. M f if if iJ H H 6 P R 0 G 2 ?)•-: f ,f 

1 RElM if if :f T if f if if >)p if f f f f f f f 

2 F':| fc. M if if if if if if if if H|> f if if <[H if f f f 


■.::' h!!:::. M if f if f 

4 REM Tf MULTI-COLOR iff: 

5 REM iff SPRITE iff 

6 REM iff DEMO ff 

7 hi El’1 f if f f 


8 R EE M * f ty .f $ f $ $ if: if :<h: f f if if: ;f if 
y R E: I 'l if f f if if f if if if if f if if if f if f 
10 PR I NT CHET < .1.4 7 > s REE Ml CLEAR SCREEN 

SO P OK EE 2 840 192 : REEM SET MEM POINTERS 
40 FOR I = j. 22S8T012350 i RE AD A : POKE I , fi 
50 nee: T 

60 POKEEV + 28, 1 :REM SET MULTI.COL MODE 

5’ 0 P 0 K E V •+• 3 7,2 ; R EI I M U L T I.C 0 L 1 

80 POKE 1 ',''4,38,0 ;;REM MULTI.COL 2 

30 POKE39 r 5 :REM NORMAL SPRITE COL.. 

1 0 U P 0 K E.E V 1 0 O ;; F' 0 K E V -i-1 10 0 R E M S P R F' 0 S I T I 0 N 
1 10 POKEV + 28,. 1 sPOKEV+29, 1 :F.'EEM EXPAND SPRITE 

1 2 O P O K E V ■+■ 2.1. , 1 R E M T U R N O N S P R I T E 
130 REM SPRITE DATA 

200 DATlAO , 0 , gi255 ,. 255 ,. 252 234 ,. ;|. 70 ,. 1 72 

220 DAT Pi.!. 72,234 ,. 1 1 8 ,1 72,234,. j. 1 8 ... 1 72 223 
230 DATA 1 1 7 ... 168,229,1 1 7 ,. ]. 08,23 1 255 , r :l. 08 
240 DAT A 2 31 ,. 2 55108 > 229... 1 17,. 1082291 17 
250 DAT Pi 108,234 ,. 1 18 . r 1 72,234, 1 18 ,. 1 72 , 234 

2 7 0 D A T A23 4I 7 0... 1 7225 52 55, 25 2 


Whilst on the ‘flag" theme the following program shows how characters POKEd to the screen 
can combine witli spites by drawing a flagpole using reverse video SPACEs (POKE code 160) and 
then running the sprite flag up the pole. The program below is very similar to the one used to draw 
the flag except that two routines have been added; one to draw the flagpole and the other to move 
the flag up the pole. Press RUN/STOP and RESTORE before typing in this program. 
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0 R E l v i Hh :f if C H I --}P G P R 0 G 3 f * f 

1 R e: M e+: ;f ;ff ;f E'K ;f ;f f if T T S f 

v p j"£ jvj -ijij ;i{i; ;ij»; ;i|j; ;4; t{»; $ =»(»•; |ij»; 

3 REM TC ** 

4 REM W-W- FLAG AND $$ 

5 REM if if FLAGPOLE ff 

iS rem *•$ demo f;f 

7 REM W-W- Tf 

8 R p ft ;f :f :f f ;f if e*|h ;f e»|i; ;f if: T: e+e ;<!>e 

9 R IE M Ef :f if if f fi if; f ;f f f if; if f 

10 p RIM T C H R f < 14 7 > R E M C L E A R 8 C R E E N 

3 G p 0 K E 2 O 4 G , :l. 9 2 :: R E M S E T M E M P 01H T E R S 

4 0 F 0 r I 1 22881012350 : R E A D A s P 0 K EI , A 
SO MEET 


6 

3 F 

'0 

CEV+2 


i 

J! 

FT: 

M 

SET' 

MUL 

TI 
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MODE 
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7 
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RE 

M 
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3i F 
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.>• 0 

;; 

RE 
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T I ■ 
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90 F 
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, i 
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RE 

M 
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S F 

RI TIE 

COL 

1 

00 

R 

EM DR 

A 

.■.I 

F 

I....AG 

F'OLE 
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1 0 

F' 

Jl<E 1 2 
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i, 
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Gk 

:: 

POKE 

55 

50 

3 r 
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1 

28 

F : ' 

OKIE 1 2 
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Gk 

:: 

F'OKE 

55 

30 

4 , 
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1 

4. 

30 

P 

OKE 1 2 

3 

•T.» 

1 

Gk 

:: 

POKE 

55 

50 
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1 

40 

F 

OR I := 1 



T 

0 J 

3 

92STEP 

1C 
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50 

P 

OKE I , 

i 

6G 


PC 

IK 

E542 

i 6 

+ i 

, i 



1 

60 

FIFE Ell" 












1 

70 

F 

OKE',‘4 



i 

: F 

*c 

KEV + 

33 

i 

s F 

EM e; 

: IP AND SPRITE 
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80 

F 

0 KIEV f 

6' 

i, 
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: RE 

M TURN 

c 

N 

SPRITE 
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90 
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OKEV 

i 
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0T0100 

STEF 
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OKE','4 
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HE 
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i 
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'■* 

REM 

8 

PF 


TE 

~ 

DA IF 







001 

3 

DATA £ 


0 

1;; 

r ir 

-•!!! 

5 , 25 

!;:< r 

“i nr 

'3. ... 

234... 

170,172 


0 1 1 

•;! 

Ul-I r A 2 

• ” 

4 

*::: 

6* 

. i 


34 

E 

6 r 

1 i 3 r 

234 , 118 


021 

3 

DATA 1 

7 




i 

1 18, 

17 


3. 

411 

8,172,229 


0 30 

DATA 3 

1 

f 

i 

0!; 


333 

11 

7, 

188,25 

1,255,188 


04i 

3 
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■j 

.2 
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y 

1 :l 
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SPRITES 63 


2050 DhTh108 

,234 

.1 

2000 DFlTFl 110 

, 172 

r £ 

2070 DRTH234 

, 170 

:l 


POSITIONING SPRITES 

Spiites are positioned by means of two coordinates. The X coordinate positions the sprite hori¬ 
zontally and the Y coordinate sets the sprite's vertical position. Both of these numbers can have 
values in the range 0-255. The registers which hold the X and Y coordiantes are: 


Sprite 

0 

1 

1 

3 

Coord. 

X 

Y 

X 

Y 

X 

Y 

X 

Y 

Location 

V 

V+l 

V+2 

V+3 

V+4 

V+5 

V+6 

V+7 


Sprite 

4 

5 

6 

7 

Coord. 

X 

Y 

X 

Y 

X 

Y 

X 

Y 

Location 

V+8 

V+9 

V+10 

V+l 1 

V+l 2 

V+13 

V+14 

V+l 5 


The normal 40 by 25 character screen in terms of pixels is 320 by 200 pixels. Y coordinates 
can range from 0 to 255 so there is more than enough range in the vertical direction. The problem 
comes when we consider the X coordinate. The largest number that can be held in any of the X 
registers is 255 (i.e. 11111111 in binary) but the screen runs to 320 pixels across. However, there is 
a way to open up the right-hand side ot the screen. If we had just one more bit available to us we 
could have numbers in the range 0 to 511, more than enough to plot across the whole screen. This 
extra bit is held in location V+16 and because each sprite only needs one bit to increase its X 
coordinate range, one of the 8 bits in location V+16 is assigned to each sprite. To make this clear, 
consider the example of sprite 0 moving from X = 254 to X = 257. 
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X coordinate Location V+16 


o 

o 

o 

o 

0 

L 


0 


; i t i i 

1 0 0 01 01 0 

ill! 

0 

0 

_ _ 



O 

o 

o 

0 

0 

1 



77 

0 

O 

O 

o 

0 ! 0 ! 1 




; 1 i 

1 1 


Location V 



As the X coordinate is required to increase past 255. at the 256th position the extra hit lor 
sprite 0 is set to 1 and the normal X coordinate register is set back to zero. This is similar to the 
change that occurs when 1 is added to 600 to give is 1000. The first three digits have been reset to 
zero and the next digit is set to 1. 

In simple terms then, to plot past the 255th position POKE the V+16 register with the appro¬ 
priate number and start the normal X coordinate from zero again. The correction numbers to 
POKE in to the V+16 register are: 


Sprite 

0 

1 


3 

4 

S 

6 

7 

Poke 

1 

1 

4 

8 

_ 

16 

_ 

32 

64 

12S 


It is possible to move out ol the screen area as demonstrated earlier. The origin tor the X and 
Y coordinates does not. in fact, start at the top left-hand corner of the screen but at a position 
off the screen. To help you to position your sprites Figs. 6.4 and 6.5 illustrates some ol the key 
positions, firstly for ordinary sprites and then secondly tor sprites expanded in both directions. 












POKE 
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POKE V+5 6 


Fig. 6.5 
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OTHER SPRITE FUNCTIONS 

All othei sprite functions are controlled by having a single register tor each Junction ami one bit 
inside each register for each sprite. The hit turthest to the right in the roister switches me tunction 
on or off for sprite 0. The bit on its left switches the function on or off for sprite 1. ami so on. up 
to the eighth bit which controls the function for sprite 7. Functions not yet mentioned which 
behave in this way are: 


Function 

Register 

Turn sprites ON OFF 

V+ 2 1 

Expand in the X direction 

V+ 2.4 

Expand in the Y direction 

V+23 


USING AND' AND OR' TO ISOLATE BITS 

Often ptogramrning using these single register functions can cause problems when the function ss 
being used simultaneously with more than one sprite. The most obvious example is using the V + 21 
register to turn sprites on and off. Lets assume that we already have sprite 0 turned on and w e now 
want to turn on sprite 2. For sprite 0 to be turned on the V+2 1 register must took iika this: 



To turn on sprite 2 we have learned that we must POKE in 4 (0000100). Unloitunatety it 
POKE in 4 we will not only turn on sprite 2 but we shall also turn OFF sprite 0. To get both sprue 
0 and sprite 2 turned on at the same time we need to POKF in the decimal equivalent ot 


0 0 


This is 5 in decimal. 1 and 4 are the numbers that turn on sprite 0 and sprite 2. To turn them both 
on together all we have to do is add the two numbers together. Similarly, to turn on spine ! requites 
the number 2, so to turn on sprites 0. 1. and 2 together we would need to POKF V+2 1 with 7 0 e. 
1+2+4). 
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1 hi' I' M ' i'W .'! !■_ I t| ViO! ,'HI plOiH.i V\!;ish s[H'!ii/s nil' aluMtly 1)11 kllCli 1 

: U; 11 1 '!!■ .ijih H ho.. i ■ 1 Oih Ui : o: In ;:o: :o. pn ,puii:;> ! dp 'hi ':.,'.- 1 iv-.p: -> • In I •_ . 1 

1 oh Mi - 1 on’ ■ hhiil ll ! o pi -o .. m !v asiiu: iiio nope,,I ,',po; s 1 ^\\D an.’ <’ >!’ h.oo I < ap'o 
I 0 ! "■ hl\ Thai O' OH' 0 OHO 1 -i 0 Oh V- o V. ah: '■ ' 1 . - 0 -.pfilo I ■, s 11 ’(!.'■ 1 i , i i 

.'Oho: i o o a M, H iH.O. ai'Vio : M V. o, Pi I KiooPh/Vh O rooohOf and 

!!:-■ lliOMol Ok \\ l!i ilia •' 1,1 HI! ! .i h.ih PiH; i i ! 1 '- - '- i, 0 1 i l.o 1 pO i' 0 ’ 11 Si d 0 I I Hi 



! ’ ! f \ + ! .I' I i $ *■ _lk) K 


I 1 ' ! i - !!: iff ' lilh'.'; list 1 

ii ue Id I k ’Io■ :voi,o :■ : 

A XII h H.d ■ 


Ft iki V ■ j rid is ; v : d, ; \ \j o 

p i i i: 

I ‘ H 111: 1 o 0 ..d" I Adi , k 'll i hi P\ 

cal, uiaui '. d - |i>. 


\ . '• I i Wo Ii 'll 
ihWC UM, wo 
, 4 i. 

O.H ip . a!"', 
in'! • :i !h Inc 





1 t m: !nr f cii l/i 


it 'S' iv tii- \pnu- uumbei i!icu to unn OS spun S 

POK FV+I!i.IT I Ki\ +51 )OK(S'. i 
To turn Oi : F <]'■ 1 ite S; 

POKl V+21,PtF.K(V+2i >AND#b5-S! 

This mi;ihoil can ol course lie used with any of the single register spiite functions. 


PRIORITY 

(1) Sprite/sprite priority 

When two sprites are at the same position on the sateen then one appears to he on top or in Pom 
of the ('then The sprite in front is said to have a higher priority than the one hehimi This order »1 
priority is not selectable hv the progratnntei but depends on sprue number. \ ry simply. the trie is 
that lower-nunibeted sptiies have priority ova higher-iuimhered sprites. So a the paths ot sprue 1 
and spiite 2 Crossed each other, then spate ! would appear to pass in front > t sprite .. It sprite 3 - 
path was giso crossed at the same instant then u would lie behind spates 1 an I It yoti write 
programs that involve sprites passim' ovet eaeh other then think ernetully about vs It ich spnk you 
wish to appear in front and assign it a low spiite nuinbei Spire pi mi tty ran ado he u >:■' r design 
iigures that involve multiple sprites. I! there are any 'holes in the sprite which appears in i rout, 
ihetl the sprite behind will show through. Some interesting effec t' r shape itid eolo: can he 
achieved by layering sprites 

( 2 ) Spiite, background data priority 

Sprite to background data priority IS prouatrnnahie by usir.c me \ +.2 u-gtstet. She ittnction 
works in the same way as the otiiei single register tuneti ms in that a bit is assigned to w wm! tire 
function for eaeh sprite. If a pellicular hit is 0 then litc sprite to which it relates wii appear in 
front of the eackmound. If the hit is 1 then the sprue appears to be behind the data. On power 
up this reoistei is sol to zero m unless vou dr- something to change the .atnation at* sprites wall 
appear in trout ol the background. 
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COLLISIONS, COLLISIONS 
(i ) Sprite sprite collisions 

Sprite to sprite collisions sic stored, when detected, in the register V+30. Each sprite lias a bit in 
tills register which is set t<> 1 if that sprite has been in collision with another sprite. Obviously, if 
two sprites are in i’olli.-uon then both the corresponding bits will be set to 1. To use this in your 
progiam y«m have to I’Ll Li K the location to see what it contains. This is normally done from inside 
an IT . , THEN siatement. as follows: 

IF PIT K( V+30)ANDSt 2=S12 THEN GOSUB XXX 

where S is the sprite number The AND isolates the particular hit in the register that relates to 
sprite S. >011 may want, as in the example, to have some action taking place because ot the collision. 
[Ins may be placed in a subroutine starting at XXX. Il you wish to specify detection of a collision 
between two particular sprites SI and S3, this can be done using this command: 

IE PEEK.(V +30)AND(S1 t 2 + S21 2 ) = S 1 i 2 + S212THEN GOSUB XXX 

Noie: Once the collision register is PEEKeJ it is automatically reset to zero. If you want to use the 
vane that you PEEked from it art anothei part of the program then store- the value in a variable 
until you wish to use it 

We lound that when using this register that some strange things happened. We eventually came 
to the conclusion that these weird happenings were due to the register not clearing itself quickly 
enough after it had been PEEKed. The problems certainly cleared up when we inserted a POKE 
into the main action loop to ‘manually' reset the register. 

(2) Sprite/background collisions 

1 lie spnte to background collision register is at V +3 I. It works in similar way to the sprite/sprite 
collision register. Each sprite lias a bit in the register which is set to 1 if the sprite has been in 
collision with background data. The register also clears itself once it has been PEEKed. 

It is possible to select which piece of the background you wish to collide with. If the back¬ 
ground is set up in multi-color mode then, although characters colored in multi-color 1 appear on 
the screen, they are not 'solid' sprites. On other words, is a sprite collides with a piece of data that 
is in muiti-eolor [, then that collision is not noted in the collision register. (See Chapter 2 for an 
explanation of background multi-color mode.) 


'Aeroplane' program 

The following program demonstrates the use of priority, memory pointers, and collision registers: 
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& 

0 


12 

90 

POP 

E5 

427 

2+1,. 

11sPOKE 

b 

4 

272+-3Xi-l , 1 3. 

1 3 

30 

HER 

T : 

HEX 

r 





1 S' 

3 9 

RET 

UR 

N 







1 0001+ 

REM-. 

.DRTR 

! :: 

OR 

SF 

13 

ITE 

GR 

1 00 

1 0 

ill 1ST! 30 

0 , 0 , 0 

... 0 

,. 0 

, 0 , 

0 

... 0 


1 00 

20 

D FIT 03 

0 0,0 

15 

, 0 

0 

p 

l ;2 

8 i+i 

1 0 0 

30 

014 1 143 

1 92 , 0 

1 

93 

i; : ; 

4 

i 

.»• .L 

224 

1 00 

40 

DRTR 3. 

,. 22:42 

31 

3. 

cr. 

err 


•“> 

1 00 

50 

ORTH 1 

;;:<p ;;= ■:=: 

2 

i~ cr 

r 1 .»• 

c.’! 

55 

86 

1 00 

30 

DOT 02 

53,0 , 3. 

...* r 

j p 

3 ,. Q 

r 

7 r 3. 

93 ... 

3. 00 

79 

DO"! 0:3 

224 , 0 

1 

v 

10 , 

0 

0 .,. 

248 

3. 00 

30 

DO TOO 

:+ , .1 24 

, 0 

, 0 

6 2 




1 0 1 

30 

REM. 

.DOT Fi 

F 

OR 

SF 

R 

HE 

0B 

10 3. 

1 0 

DOT 00 

... 1+ 0 0 

, 9 

0 

0 ,. 

13 

... 0 


1 0 .1. 

50 

DOTH 2 

40 , 0 ... 0 

, 1 

2:0 

r O 

0 

60 

... 0 , 

1 0 3. 

30 

DR T Fl 3. 

58 , 0 ,. 3 

•i 

.• j. 

4:3 

0 ,. 

r 

,. j. 3 

5 , 1 


Listing continued next page 
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G 3 4 O 

OFT: Ff i : ' , 

13 3 , i. 5 1 

3. fi 1 50 

OPTO 1 •? 

6 ,■ 333: 13 3.3 

1. 8 1 60 

D FiTFi 33:4 

8.. 8 , :!. 3 

i. i J .!. . 0 

0:4313 fit! , 

33:1 ,. 0,1 

i G 1 ' 30 

OF! TOG 

33: 224 

i i. 1 3UB 

RE331-. 

••■■■DRT0 

033:1 Li 

[310100 , 

0,0 ... 0 

i : i,2 i-1 

0010:33 , 

■ j ,. 0 .. 8 

02:330 

D0T0O, 

Q . 8 , 4.. 

024© 

DR T30 3. 3 

R. . 128 

0 2 5 ® 

□0 1 H i , 


0260 

D0TB 03 

80 3‘ 

627' 0 

00T130 s 

0 ... 0,0 

1 0300 

REM. 

.HhT h 

3. 0 33: i 0 

DPI T013 . 

0,0 ,. 01 

1 03321 ■ 

Of: T FiG, 

01 0 ... 0 

10 :3G 

D0T01t 

,. 0 ,. 01 ,. 

i (■ i • ; 0 

00 OHIO 

’ r 0 r 1 .. 

10350 

O0T00. 

5+:5‘ 0 , 

103i 0 

D FIT' FIG 

0 0 ... 0 

;! 0 33:7 : 0 

00 T 0 0 

01 ,. I”-;? 0 

: 13400 

REM-. 

.DRT 

] 0 4 1 0 

Dfi T0G 

0i 0,8 

i 0420 

p0T05t 

;, 0 ... 0 

i 8 4 3 0 

D0T08 

1261 

1 0$4G 

0010,333 

301 37 

1 0450 

DFlT0F:!i 

35 ,• 0 ,• |0* 

]. 04-68 

DOTH? 

. 281 ... 0 

10470 

OH IF! 7 

. 22'4 0 

1 0480 

D0T00 

■ 0,01 10 


: ; v?4 .3 

1 Ri 1. .FOP. 

, 0 , • 

i... .1. 5 , 


■i 

. 0 ... 01 , i 

33 


FOR ■ 
0 - 01,1 

0 ,. 01 ,. 0 ... 04 

30 . 

, 01,0! 

I 1 , 0 r .1 

200,22. 

4 , 0 

:i 2:7 .. 
LI , 23 

, 0 ... 0... 1 2: 

1 g , ' 

1 0 r 0 
, 0 , 0 . r 

0 , O G 0 

r 0 r 0 

FOR 

SPRITE i 

GO. 

,. 0 0 

0...0 ... 01 


,• 0 0 r 

01 ... 01 ... 0 ... 0 


34,8. 

0 1 0,0 


3i , 133:8 

!~i “;j 5 

... 0 0 r 4© 

, 0 

0,01 , 

0 , 01 ... 0 


-l FOR 

8PR I 1433 

BE- 

:l. 28, G 

0 2'40 , 

240 

202l 

1 5 , :!. iHH , 

1 ,3 

, 1 33: 333 

45220 

30 , i 

33a :i. 4 

, G , 31 2 

53 „ 0 


:0i ,. 0 .. i r 2: 

40,0 

,. 33:1 , G 

.0,124 



0 0 0 
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TABLE OF VIC CHIP LOCATION FUNCTIONS 


Location Location rei. 

to 53248 (V) Function 


53248 

V 

X coordinate of sprite 0 

53249 

V+] 

Y coordinate of sprite 0 

53250 

V+2 

X coordinate of sprite 1 

53251 

V+3 

Y coordinate of sprite 1 

53252 

V+4 

X coordinate of sprite 2 

53253 

V+5 

Y coordinate of sprite 2 

53254 

V+6 

X coordinate of sprite 3 

53255 

V -+ 7 

Y coordinate of sprite 3 

53256 

V+ 8 

X coordinate ot sprite 4 

53257 

V+9 

Y coordinate of sprite 4 

53258 

V+10 

X coordinate of sprite 5 

53259 

v+u 

Y coordinate of sprite 5 

53260 

V+12 

X coordinate of sprite 6 

53261 

V+13 

Y coordinate of sprite 6 

53262 

V+14 

X coordinate of sprite 7 

53263 

V+15 

Y coordinate of sprite 7 

53264 

V+16 

Most Significant Bit register tor sprites 0- 7 X coordinate 

53 269 

V + 21 

Turns sprites 0 -7 ON/OFF 

53271 

V+23 

Expands sprites 0.7 in Y direction 

$3275 

V+27 

Selects sprite/data priority 

53 276 

V + 28 

Switches on multi-color mode 

53277 

V+29 

Expands sprites 0- 7 in X direction 

53278 

V+30 

Sprite to sprite collision register 
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Location re! 


.lion u 

> 3334s i V 

) 



toincln 

7 ') 

V +41 

Spi 

lie 

to 

tiaia collision register 

S 5 

\ 

S n i 

ite 

nuthi-coior i 

:s.h 

\ + - : s 

Sp: 

rite 

m 

'lili-Coloi j 

‘S'? 

v + 34 

( o 

lor 

ol' 

sprite 0 

!<SS 

V+4l| 

l ■ i 

lor 

of 

sprite 1 

;;s'T 

V+4i 

( 

lor 

of 

sprite : 

!W() 

v+4.: 

Co 

lor 

■o»f 

spiile 3 

;o! 

V+43 

It) 

lor 

ol 

spiit c 4 

S' _ 

V+44 

( 0 

lor 

of 

sprite 5 

h) ; 

V+45 

(' > 

lor 

of 

sprite (' 

!94 

V+4tt 

Co 

! o r 

oi 

spine 7 
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Notice tliut when any switch is 'made' then the corresponding bit in the tegister is set to zero. 
Diagonal movements are foimeit bv combining two ot the tour direction switches. This gives lour 
t'uuhei mod;.'. 


l o & 1 ei't 

i:: 

011110i0 

(p & Right 

1 IS 

onion o 

I >i >\V!i & 1 ot t 

121 

0111100! 

Dfevn A. Rialtt 

1 17 

01 1 ! 0 1 0 i 

Break into vino program 

and use 

the cursoi to edit line 10 so that the location being PEF.Ked 

i, altered t> eo.wll. 1’htg your 

joystick into port i and Rl : \ the program. The number displayed 

rmualit is 2.55 : :■ i i ! i if 1 in 1 

rinui ;• ) 

Again ibis nninbei will change as you play with the joystick 

Verity that these numbers ... mi 

espond 

to the c> n i eet direction. 

Games port 1 



1 ( >ysuck 

Decimal 

Binary 

None 

255 

11111111 

vp 

254 

1 11 B 110 

LDi iwn 

2 5 3 

11111101 

left 

251 

union 

Right 

2 4 7 

11110 ill 

Fire 

2. e ' 

1i10 ill 1 

L p & Lett 

257) 

1i111010 

! A & Miglit 

246 

11110110 

Down & Left 

249 

mi looi 

Down & Right 

245 

1 1 1 10101 

Break into youi program 

again. When you receive the prompt 'READY', twiddle the joystick 

again. You should see some 

rubbish 

appearing on the screen. This only happens when port 1 is 

used so it is advisable, if you 

write a 

game that needs only one joystick, to use poit 2. rather than 

port 1. 

Let's iecap then on wlutt 

we have 

found out about how the joy stick works. 


The joystick has five switches, font ot' which control movement, and one of which contiols 
firing. There arc two ports in the Commodore 64 to receive joysticks, Each port hits a location 
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within the machine. Port 2 is at 5 <>320 and port 1 is at 56321. The four direction switches on the 
joystick are linked to the first four bits in the location. The fifth bit is linked to the button. If a 
switch contact is made then the corresponding bit in the register is set to 0. As soon us the contact 
is broken then the bit's value is restored to 1. Diagonal movement is signalled by two direction 
switches being made simultaneously. 


A BASIC JOYSTICK SUBROUTINE 

It is rather inconvenient to have to refer to large decimal numbers when we want a joystick to do 
something inside a program. As all the directions are signalled by the first four bits of the port 
location. lei's isolate them using AND. firstly, we need to store the value of the location in a 
variable which shall be called PJ for 'peek joystick*. If our subroutine starts at line 2000: 

2000 REM JOYSTICK SUBROUTINE 
2010 PJ=PEEK(56320) 

2020 DJ= 15—fPJ AND1 5) 

2030 F B=PJ AND 1 6 
2040 RETURN 

Pei forming the operation PJAND15 isolates the first four bits of PJ. Subtracting this from 15 
gives us numbers for the direction in the range 0 10. 

Line 2030 isolates the tifth bit of PJ. This bit relates to the fire button (FB). If the fire button 
is not pressed, then the value of this bit is 1 and FB = 16. If the button is pressed, then FB = 0. 
Values for DJ relate to these directions: 


DJ 

Direction 

0 

1 

Up 

A 

Down 

4 

Left 

5 

Up & Left 

<-> 

Down & Left 

8 

Right 

0 

Up &. Right 

10 

Down & Right 


The subroutine might be used inside a program like this: 
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1 R i£ M i'I'l if If f f ff iff f if f if f if 

2 R E M if if if if f if f f f if f if f f f 

3 REM iff ff 

4 REM ff BASIC ff 

5 REM ff JOVSTICK ff 

6 REM iff DEMO ff 

7 REM ff ff 

■3 E E l '1 f if f f if if f f f f f if f f f 

Q P j~‘ }■ ) ip] t}»;ojr -jji; ^ ;ij»; ;»}h •»}»•; ;ij»i f]*-; ;»j£ 

1.0 F'RIWTCEIRf 'i: 14 7 > 

i.oo pem.create: sprite---. 

1 10 V253243 : X = 1 50 s V= 140 s REM VAR IABLES 
ISO F'Ci|<E2040, 1.92 sRBM SET MEM POINTER 
130 FOR I = 1228ST012350:POKE I,255:NEXT 

1 4 0 P 0 !< E 'v' •+- 3 9 7 : R E M C 0 L 0 U R S P RIT E VE t...!.... 0 El 
1.50 F'OK.E'vN-O 1,-ls REM TURN ON SPRITE 

2O0 REM.-.MR IH MOVEMENT LOOP.. 

2 .1. O G O S U B 2 O 0 O s R E M P E E K J O V S T I C K 

220 I F D J =: 1 T14 E N V =•. V.1 IF V < 5 0 T14 E N V = 5 O 

230 3. p"0 J -2 THEHV=V-i- I. :: I FVI>229 T HEHV^S,23 

240 IPD J .= 4THENX : = X.1 ; I FX<241"HENX=24 

258 I ED J;~8TNENX::~X + 1 I FX> 320TH£NX=32G 

280 HR:- I NT o N, 2:58 > s.LX2X.258f NX 

270 POKEV i-18 ,. I4X 

2: IS 0 P 0 K E V L X P 0 K E -i-1 V :: R E M P L. 0 T N E W C 0 0 R D S 

2 90 I f : F B -■ .1 6 T l-l E N280 ; R EM R E P E A T L.. 0 0 P 

4 O O I- K INTO H R T 1 j. 4 7 > ? T A B 8 .1. 3 > " B 0 M B S A N A V M " 

3 10 F O PI = 1 T 0 1 0 00 l-l E X 7 s R E N ! J E l... A V 

320 PRINTCHR-T'■ 147 3 

3 3 0 G 0 T O 2 0 f i R E M R E l ::: ' E A T L 0 0 P 
9 9 9 E r! [j 

2000 PEN JOVST I OF, SUEIROUT INE 
2810 i :;: ‘ T F : E E !< F 583 20 > 

2020 D J=M.5.PJANDl51' 

2030 FB--PJAHD16 
2040 RETURN 
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The main action loop starting at line 200 consists of a series of questions and action taken accoi ■ 
dingly. For example, line 220 asks if the value of DJ is 1. This is the value of DJ that cos responds 
to Up on the joystick. It the answer is 'yes' then the current value of the Y coordinate is reoik. u 
by 1. When the new X and Y are plotted at line 260 this will mean that the sprite lias beui moved 
1 pixel up the screen. Note that there is a further conditional statement which set-, the luinimum 
value ol Y. It is a good idea to put the boundary conditions here because if the first pad w ihe 
line is not true then the computer will not test the second, but skip straight to the start oi ;hv hue 
below. This can save on execution time as conditions are not tested neediessiv The iwnnAiw., 
that have been set are the edge of the screen for an unexpected sprite. As X and Y can be any whom 
in the range 0-255 you can move your sprite out of the viewing area. Trv seeing the i-wei 
limits of X and Y to zero and the upper limit of Y to 255. RUN the program again mid yon will 
now be able to use the joystick to manoeuvre the sprite on and off the screen. You can even b a v 
your sprite going off one side of the screen and re-emerging on the other. Change the second pad 
of line 220 to: 

IFY<29THENY = 250 
and change the second part of line 230 to: 

IF Y>250THEN Y = 29 


The program moves the sprite, one pixel at a time, in any direction. This means that the moiwn 
is very smooth but a little slow. You can speed things up by making the sprite move more than one 
pixel by changing Y=Y-1 to Y=Y-2 etc. in lines 220 250. There is. however, a direct trade-oil 
between the speed at which the sprite will move and the smoothness with which it will mow Tr\ 
experimenting with the number of pixels that the sprite moves. 

The program is structured in such a way at line 270 that if the value ot t B is 16 then the !• «• a 
is restarted (remember that FB = 16 if the fire button is not pressed). The computed is unis alhnvcd 
through to execute the lines following 270 if the fire button has been pressed, i.e. V B • > A- Ad 
Ihe program does is to print up a small message on the screen, which is held foi a sin.it time io due 
being erased. Note that whilst the message is on the screen, the sprite cannot he mov'd, because 
the conputer is tied up executing the dummy loop at line 290. The moral is don't let your 'Sumv 
routines be too long or you will hold up the rest of the action. Well so much for a BASH subr. w:n , 
You can now write programs where action is controlled using a joystick, but pretty -won \ou uc 
going to run into time problems, as your programs become more complex. We need to u.-,e ma hine 
code to speed things up. 
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A MACHINE-COOK JOYSTICK SUBROUTINE 

This is ;i BASK loader tor the machine-code joystick routine. Because it is in BASit . > •'» can t\ pe 
11 S traisi!t into your Commodore 64. To ensure that the DATA statements ate er.teieu soneUiv 
tlrete is a checksum at the end of the suhrounne. As the DAI A is read in, a running total is kept. 
The final part of the subroutine checks the final total. 11 you get the message 'checksum enoi 
then you have not entered the DAI A coirectly. 

The joystick subroutine is numbered front 2000 onwards. Once you have enteied the icutine 
, ; n j t i s o 0 od idea to SAVE it to disk or tape. When you want to write a program which uses 


cni rei 


it then 1 ()AD the suim 

rutinc first ; 

2000 

peH tat 

tjf -lj»- >ji- ||j ;ljt; ;»}.*: H 

20 1 0 

REM 44 


-mi? Pi 

IC E hi 44 

13 hi 3 I hi 1 

2020 

PCM 

F 0 R i 

204 13 

p 12 h: ¥ 

ID VST 

priori 

R12 hi 4 +; 


;■ p *•••; 0 

j*»;‘ I"'' j'-'j ;f{h : M di 

, A A; 4:A ¥ it 

/, ' 0 1 1 

0 FIT Ft 1 20 , 

. 1 73,20 

.2110 

DRTR3, 1 - 

1-1 ,30., 1 

2120 

nflTFl 1 69, 

„ :! 92,1 4 

P 1 0 

D FIT hi 2 9 : 

L92,141 

2.14 0 

n fit 1 H .21 , : 

3,88,96 

2 150 

iJti Ti i t 9- 

h 4 1.3 U r 

2 :i. 60 

19 Fl 93 1 t 1 

, 27,192 

2 :i 2 0 

1 o'!'! 1-0 '.20 

1 4 1 , 233 

2 1 00 

Lit 1 T Fi;320 

, 1 85,0 

2 l 90 

D FlTR 1 '2 0 

r 2 22 .& , 

■; 111 a 

DRTR189 

ppJP; 

22:20 

DR f R57 

'. 22 ' 192 

•'"< •".> ■ j" : j 

ORTi-l 1 92 

, 104 '24 

2 24 0 

[3 Fa F Ft 1 92 


2 P20 

DRTR222 

, 22 ,192 

22 60 

r iRT hi 1 92 

, 189,2.;: 

2 2 • 0 

DRTR 1. 8 , 

1 89 , .! 2 , 

. i 

D'H 1 R 1 3 .■ 

192 157 


4 

e:r ** 

¥ 

4 4 
4 ¥ 

■(, 4 : .f $ 

69 ..71 ... 141 ,20 


l , ,l i 


' ■! I"; 


1 


7’ r l Hi ;? , 2 05 . i b 


5:3 , 12,192,1 44,1 8 
57 ,. 2 1192 ... i 89,9192 
1 04,74 ... 72 , 78 1 62 
22,176 ... 13 ,.222 221 


1 9,2,25:3 , 1 3: , 1 92,1 44 
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2290 PR ! R207 i 32 , ; 04/; ■. 7,9 . l 7 ■ ■ ' 7 s t . 

2 ft i P DPI ; , j . 1 . 7 1 SO; \ p , ; . ■; 9 ;; , 9 , . , ■ 

2320 IJI iTftl ft.: j 4 1 ! S . t: ,9 p 1 9 ;:; , ? ‘ ’ I 

3!' PH I' ! - 1 ftp .. 1 . : jp , ’■ 9 _ . : ; 9 : , 

2 i4 0 is Filin '! 4 3".2.76 , ! tft : 9.-1 . 64,7 9 , j. - 9 . 

3 350 LIH l' H ! , . ;;9 ■ ]. 9 ;; ; j 1 : J0 j 

■ft 01 iJ ;T i p23S , ... 08 , 3 , . r 0 i; 

M DiiTft i S9 2 ■ j ,4 .. 1 S '2 !. ft ;j 9 .; , 79 

- " 3. i Pi TP : j . ; 67 1 5 ; . 19 . 4 ,. 

:'40t ’ i 10TR 7 ; . 7S , ■-! 6 1 9 ■ | ij j 

''4:? 1 DR i m i 04 , . '4 1 79,9 1 7 ;■ ' , [ j 5 j; 1 ; yy 

24’5i.:l 13; I I H S'! F3£f ] :* |,S; iE'i ys;0<; 

24 6 0 i" 0 R .14 9 1 g: s: 'T' 0 4 p .4 7 7 ; 

2 47 0 R E: ft D :•:PI j i< ft I , 3 :C C::::: IS IS + 

2486 NEs-s; 

2490 REftEFs I F iPEsCpTHEN PR] El !'" CHET KSUM P s 7 
2501-3 RE TUi'S; 

Once the s'lbnuiiigi* is Rl X, we have sever .! tjf Pei tie: a- tw do ’* -jure « 

The first thiny to do is to set the upper and lower knots -■ \ Y. This 

numbers into these locations. 


! ill lit 

Joystick 

Lit- Byte 

Hi-iiyts 

X MIN 

~) 

4Q i s: 

4 1 >; 5 1 

A MIX 

1 

4° 1 54 

40! PS 

X MAX 

7 

40] '6 

40 ] 57 

X MAX 

1 

4915b 

49150 

Y MIN 

ft 

4.9' ! 60 

4016 i 

3' MiN 

| 

4 C > ] 62 

40165 

Y MAX 

2 

49164 

49 ! 65 

Y MAX 

] 

40 j 66 

4016“ 


an 
dr 


POKE ins 
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\ \ mi can see. each limit has two locations. One is known as the la ■■!>> ,r ~ and me othei 


sb'-le i a lues .., 

manner that can 
X range born 14 

be held 
to 345. n 

in am location is. 255 Fill lit 11 in bmaty). 
1 . a second location ; ■ recoil rd to hold values 

-Byte a;mi Hb 

Or ie combine like ' 

It is: 


Value of X 

Hi-Byte 


Lo-Byte 

254 

" t-.t' 'h r 

u; 0 u 0 010 

r i ! 

0 0 

. I i i 1 1 i | ! 1 ! i 0 ; 


0 

■rrn r. ft - 

n 0 0 1 1 1 

] 

i 

1 1 


.T-r-T- 1 j r— 

r 1 * 


I 0 ! 0 ! 0 ; 0 ! II ; n 1 I I 

no 0 | 0 

11 I 0 0 



T 1 * T • j ; 1 

! i 

1 . "T'T 

b ii 0 1 u; n o o ; I 

0 1 0 1 0 : 0 

L.1_;_L. 

0:0 ip 


An. upper ; met to \ may be set to 52 i to; joystick 2 In this POKl-.t 
POisi -joi POKI : 401 57.1 


[he ues' cm, p .. . set the s.utij rate. Tins is simply uc ram at w w. a hr joysuefc is read. 
pOKHiiw i i o' a 11 w GiiiiS •jvuii iiumhei in th4 range 0 .155. tins will v' : Pm scan one ivt ween 
; f’f/'Mla me! 4.5 .email Is lespce 1 ivei\, 

pen m y mi peemam enififm its main 'readme loop the last thing to be done is to enter the 
■ e iiir.e-cmje p oeram fins is known as entcing tin: wedge ami >s aecorrtpushed y Gr fib: uinr 
. o'iimam! 


\p s 4'- 1 ! S ■ 


i In •' .row e ' ;• eatn? is • b.mm ;, i 1 K.mi to obmm '..bum' o ! X and V 


l (mi! si 


\: 

x i 
41 

4 I 


i o-Bvte iriByie 


4‘ • i b 44! "4 

40 ivy I 1 ** 17o 
















USING THE JOYS"! !CK 


The nrc IvmcM} registers have addresses 4‘> I ? 7. t' ( ,r The button 2. and 49 j '• m, : . 

Wiion dl l.King these locations within a loop use tire iollnwing routine 

H10 POKI 491 77.0 : POKK491 78,0 
I 10 FR : = PEtK(49t?7>: FB!=PKEK(49I 7s» 

120 If FBI =1 1111 \ action.':- 
170 IF FB2 = 1 Illl \ <action> 

1 40 GOTO 100 

Both tiic button iegtsters should he rest;! at some stage in the loop, this j-, prubablv 0 si done 
just pnoi to PEHKitig them. 

At the end of a program you should disable the wedge using SYS4 l ?20S. 

Il you break out of a program that uses the machine-code joystick routine you mav find tha> 
when you try to RON it again the joystick will not appeal to work. To get round this prohic* 

h ;’ i ‘; !0 y ,,u Ri N flu-' program again press RUN/STOP and RESTORE. Altematnelv. ;vp,- to 
SYS44208 to di saute the wedge. 

i o tie all these ends together here is a program that uses the machine-code joystick sa l>i. utine 

1 R El M 3f $ f 4: f 4 $ :f f 4; T 4:4: if. 

12 hr b hi if ;f if if: f 4 : if if f ifi f; if f f 


7 R b N if f ;f f i 

4 REM iff fi iff 

’■it 1 REM if. fi ..JUVST j r.; ff 

6 RET1 f:f DEIIO ff 

r RE. hi ifi.f f if: 


o R fc. M f 4 1 f if: fi ifi f f f :f: fi f f f 

9 REM fifffffif:f:fifff:ff 

10 PR IHTCHiff h 1 47 > REM CL..EF1R SCREEN 

30 G0suB2Cl00 s REM MEC J O VE?T T CK 
100 REM--SET LIMITS. 

1 1 £i F : ' O !< E '4 91 5 2 2 4 ; F' O K E 4 91 5 3... 0 ; R E i; <; 2 hi 11 -| 

1 2 0 P O K E 4 9 1 5 6 .. 65 ; P O !< E 4 91 5 ?.„ 1 r, R E M K 2 M H 2 
1 30 P0KE49.1. SO , 50 : P0EE49161 0 s REM V2 MI FI 
140 POKE4S' 164 229 ; P0KE491 65.0 REM V2 MAX 
150 REM-.-SET 8CRH RATE- 

Listing continued next pane 
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2090 

nr i h; . ■■ 

2 185 , 

5,228 72 , 1 73 ...28,192 

J mil 

L.f| ■ ■ . ; ' 

■ .= 

'0 ,■ .1 89 , c■' , 1 82,22 1 , 2 1. 1 9l 

2 1 1 0 

UU IT! IE I 

. 9 , 1S 

2 ,. 253,22 1 92,.1 4 4,1 g 

2 .1 20 

DRTF: 1 St: 

8... 1. 

2 , 1 5 7,2 1 , 1 92,1 89 ,. 9 j 9; 

2 1 30 

DRTRI 5V 

22 , 1 

92,1 84 ,. '74 ,. 72,76 , :!. 0;5 

2:!. 40 

DR'09 1. 92 

, 1 04 , 

j 7,c; 1 j 

2 J 50 

UR7 ft 197 

... 1 89, 

21,192.201,255,208,3 

2 1 btl 

DR!H822 

r 22:, 1 

92 , i. 8:7,5 1 , 1 E ! 8 221. , 1 2 

2 1 70 

DRTR 1 92 

, 189,. 

22 1 22,252 .. 1 8 , j. 92,1 4.4 

2 180 

UR i H 1 8 

189.1. 

2 , j. 92 ,. ;[ 'd 7 ,. £ ;| r t 92 , j. :4 9 

2 1 90 

02049 J. 3 

192, .1. 

5'7,22,192 ,. 104 74 ,. 72 7,: 

2200 

DRTR207 

, 1 92 , 

104,74 72 ,. 176 864 ,. 7 ■ 

221 0 

DRTR1 92 

, 20H 

3,254-, 22', 1 92,189,0 ,. 1 

2220 

DR T R 22.1. 

, .1 .7"i 

92 , l 89,1 , 92 ,. 2 El 3 ,. 18 

22 3 8 

DRTR 1 92 

144 , 

18,189,0,1 92 , 157 17 

2 2:'4 0 

DRTft 192 

... 139 

1 ,. 192,157,18, 192 ,. 104 

22M.0 

DPT R74 , 

r : ’2,7b 

, 1 ,. 193,104,74 ■■ 72,176 

i 1 

DFl 149 1 3 , 

2221 

7 : ', 1 92, 139,1 7,192,28 1 

2270 

DR 7792 55 

, 203 ,. 

3 ,222 , 1 8 1 92,1 89,1 7 

2700 

DRTR192 

, 22 1 , 

4,192,189, 18,192.253,': 

2290 

014 I 21 . 1 . 92 

, 1 44 , 

18,189,4,192, .1.57, 17 

2200 

DRTR192 

■ 1 89,. 

5,192,157 ,. 18,192,104 

.2 1 O 

DRTR74 , 

87 1 

, 46,1 93 , .1.04,74 '72,1 79 

2320 

Did 7 r ft82 

54 , 3 7 

1 92,26:7' ' 6 i , ;| 8 1 92 

• 3 3i,i 

UH i R1. 04- 

, 74,1 

76 , '5 , :! 909 . i , 1 53 35 ,. ;l 32 

2340 

DRTR200 

■ -2 3. , 

32 r 2S'4,4 24i 1.3,74.7 .9 .1 

2350 

DRT Id 1 92 

i"i 

27 , 1 92,1' 1 9 , ;29 , 192 

~*:3b 0 

00149959 

94 : RE 

'I* CHECK SUM Hi 

• .Vi 

FOR 1 4 9 

!. 8 3 TO 

+ 3478 

/ ' "0 

RERDX ;; F’f 

Mprv r 

JKEI ,. 

:: CC=:Cf+2 

2400 

REldlilN s I 

790® 

21HEN PRINT"CHECKSUM E 


2410 RETURN 


A toll explanation of how this machine-code routine was written is included in Mastering the 
CBM 64 by A. J. Jones and G. ( arpemer. also published by Ellis Norwood. 






Beginner's sound advice 


IN PRODUCTION 

|'!k Sound Interface Device or ’SID' chip, is one of the most advanced sound synthesizers to be 
found on any home computer. You can. with a lot of effort create almost any sound. Unfortunately, 
use: access is not wry friendly. A series of POKLs are required and this can lead to utter confusion 
i: \ on‘re not arelul 

In i his cbaptei we will t ry to give you an insight into the basic workings of the 'SID' chip. 

SiD has ihree oscillators and each Iras a range of seven octaves (refer to Appendix M of the 
User Manual for the tabic ol notes); also each voice has an ADSR capability (ATTACK, SUST AIN. 
(y> < '..\N R' i .i- ASI !. complete with four different waveforms. These are. Triangle, Sawtooth, 

Square in, Pulse) and. White Noise. 

'A, Will start with volume control. This is controlled at location 542% and only the first tour 
hi; , ,>i the n'Jsuv are used for the volume control, which can be set in the range 0 15. 

Secondly we have the Waveform, and our choice out of the four available, will determine the 
iivfjbrc oi lunal quality ot the sound. This can best be described by Fig. 8.1. 


BE;-, s SOUND ADVICE 89 



Triangle wave 



Sawtooth wave 



Fio. 8 ; 

n-mdly we come to site ADSR feature. ’ATTACK' determines the rate at which the note uses 
to ns peak. -01 ( AY is the rate at which the note tails to zero. -SUSTAIN' is the time for which 
the note hauls at id Is! LEAST leu von extend a particular note (see 1 ig. 8.2 t 
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Lasilv, and perhaps the must important, are the tune generators themselves. These are locations 
winch hold the frequency of a note. The first one is the high frequency and is held at locations 
^4-73 tor voice !, 54280 tor voice 2 and 54287 tor voice 2. The low frequency is held at locations 
54272 tor voice 1, 542 74 tor voice 2 and 54286 tor voice 3. 

I lie main principles of producing a sound are: 


(a) SET VOLUME d ]<> 

thl SET WAVEFORM ( i 7 . 33 . 65. i 24) 

(c) SET ATTACK DECAY (0 255) 

(d) SET SUSTAIN/RELEASE (0 255) 

(e) SE1 HIGH PULSE (if using pulse waveform) (0 15) 

(f ) SET LOW PULSE (if using pulse waveform) (0-255) 

(g) SET HIGH FREQUENCY (0 255) 

(h) SET LOW FREQUENCY (0 255) 


Altei a note has been played you must clear the ADSR or you will get odd tilings happening, 
like a quiet note which continues to sound or, the next time the note is played, not sounding very 
loud. You may have come across this before. 

O.K. now that we have whetted you appetite, we will put a little of what we have learned into 
practice, The first demo will play a note determined in length by a delay loop. You will notice that 
a lot has to be done even tor a very simple note. Type in this program: 


1010 FORl=0TO24 : REM- 

1020 POKES+ 1.0 : REM Clear ‘SID’chip 

1030 NEXTl : REM_ 

1 040 POKES + 24.1 5 : REM Set volume control 

1050 POKES+4.33 :REM Set up Sawtooth Waveform 

1060 POKES + 5,3 1 : REM Set up Attack;Decay 

1070 POKES+6.15 : REM Set up Sustain/Release 

1080 POKES + 1.51 : REM Set up Hi-Frequency 

1090 POKES+0,97 : REM Set up Lo-Frequency 

1 100 FOR 1 = 1 TO500 : REM--- 

1110 NEX I 1 : REM Delay loop 

1120 POKE S+4,0 : REM Clear Waveform 

1 130 POKES + 5.0 : REM Cleat Attack/Decay 

1 140 POKES+6.0 : REM Clear Sustain/Release 

Alter you have typed in this program, proof-read it and then RUN. You should hear a note, 
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if \;>u are using sound effects in a piogram. set up most ot the parameters before vu; 
the main loop like tins: 


inti;' 


1000 S = 54272 
1010 FOR 1=0TO 24 
1020 PORT S+1.0 
1020 NEXTI 
1040 POKES +5.3 1 
1050 POKES+6.1 5 
2000 - 


REM stun of 'SID' chip 

REM- 

REM clear 'SILO' chip 

REM- 

REM set up ATTACK DECAY 
REM set up SUSTAIN RELEASE 


2010 MAIN CONTROL LOOP OF PROGRAM 


2020 


.1000 REM SUBROUTINE FOR SOUND 


3010 POKES+4.33 
3020 POKES+ 1.25 
3030 POKES+0.90 
3040 FORI = 1 TO500 
3050 NEXT I 
30(A) POKES+4.0 


REM SAWTOOTH wave 
REM HI-FREQUENCY 
REM LO-FREQUENCY 
REM DELAY 
REM LOOP 

REM clear WAVEFORM 


It lies beyond the scope oh this book to delve any furthei into the intimacies oh sound pro¬ 
gramming. but here are a few sound effects for you to try. Use them in your own programs oi 
analyse them to help you devise your own sounds. Appendix P in your l ser Manual has some ot 
the ke\ numbers required to produce those scintillating sounds for your o4! 
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EXAMPLE PROGRAMS 

1 000 PPM AAiA F : 2 1 0 IE.3F4..0S I ON 1 AAA 

3 01 0 Si = 54 272 

1020 FOR In::: 0 7 02 4 

1 ijFiw F'Q!0E05+ I ,. 0 

| f : -’4 0 HE2"i" I 

1 020 POKES-i H 3 i 

1 0i0Ei POKE'S i-t! , 24c : i 

I 00 f 1 !-■! "i E' / := 1 5 T1010 S T E P - „ 2 
3 0pi0i POKES + 24 V 
1:1.00 POKE 3+1. 2 

! I j 1 i' 1 !■ r 03-f 0.1 , 1 

; i 30 P0KES4-4,0 

10313101 REM AAA F’2, 0; >" LiF0 3i‘ AAA 
j. 01 0 s.1-54272 

1 0 330 POP ES-+-1 ,. 0 
j. 240 Mr' 21 I 
.1.020 001 3E3-+ 24,15 
10723 | : 2 . j 

j o ?'01 i ■ ■ i 130' 0.•?; ,0:40 

i 1 ' 10 !’ : 1 0 0 ... ! :0|| ;i 

l O ■ F'i 4 1 .. 

1 ' ! '0 i- i iC I':- t TO i. 03:3 
; ; O foe : :0 ! 050 ]”EPhi 
I ! .11 r HI- !: - ! i i 2 I- , ! hi 
11 !■ ' ! C ... i 1 ■ . 200 
: I 40 : . ! j 


i 100 lr; i2 49THEH0:r: :i 
i. 1 70 HE2TT' 

1 180 I-OP E8+4 - 0 
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1000 54-351 4; +• M F : ; >: PEGS FiLER T ■ SS5 

1 020 FOF 3' :-0Tf?33 : :4 
: Fi 3 0 pr;iF;p f +. i ,. 0 
:!. 1:1 30 HE; FT I 
1 050 pOK133 33S 033:4 r 1 5 
U:i00 P0 KES-e 5 ,.240 
i i 0 i 5 ; 0 pof;e::s 4 0 , 1 . ,: '30 


, ,ii , ■ - 3 n rO'Fo'3 110 1 

I i 1 ' P 0!-4 3 . 1. 16'-v J 

3 1 :40 ! |.i! : :;.0! i: - t 

! .1 00 POi-: IF:3:0 4,0 


000 

1 1 ": 1 1 : i 

RE314 


3 k ' .1 

1 ifl.ci-J 

FllRJ -OIF 

ill 2 4 

1 0:".:0 

POKES 4 J 

,. 0 

1 0-4 0 

NF33 7-3T 313 


i £'55: 

505 13.3 ■ -! 7 

4 , i 

1 000 

50: ■ ! : 04'F 

, 47 

1 070 

:■ oik ; ; 

31 

i 011:3:; 0 

F ;F|. T - 0 T 

(3„iy £i 

3l 0:334:3! 

poke: s+'4 

,■ 01 

1 1.00 

F' 1 3 3 3 1 !< E. 0 :4 1 

, I 

1 1. 1 0 

POKES 4-0 

, 20 

] 31.70 

F' OF: 1:333 3 3, 4 -4 

, 1 7 

31. 1 30 

MEET 13 


1 140 

POKES 4- 4 

,. £1 
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Advanced tips and hints 


SOME DO’S AND DON'T'S 


DO 

DO 

DO 

DO 

DO 

DO 

DO 

DO 


nuke your ueuon loop as short as possible, preferably less than one full screen for fast- 
moving programs. 

use RE Ms at the beginning of each program section and when using GOSIJB. 
speed up you r programs by using variables and constants, instead of numbers, 
think out your program in blocks and plan out a rough structure before starting, 
make good use of subroutines. 

save your program BF FORE attempting a run. especially if the program is incomplete, 
use PRIN T rattier than POKE it you want to move characters atound the screen. It's less 
elegant but it's quicker! 
tell your friends about this book. 


1 'ON' I jump out of subroutines without going through RETURN. 

DON 1 jump out ol a FOR ... NEXT loop without going through the last NEXT. 

DON I always use the first solution that comes to mind when presented with a problem. Think it 
through; there's probably a quicker and/or neater way. 

DON 1 iorget to tell your friends about this book! 
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SOUP [NTEKI-S ‘ iM' CUKES ETC 

■ ■ M ! I i (' ■ '' f . MM i 1 1 1 Mil ' \ 5 

i !. i 1-,-. v: COP i. cniii'iv Rip I .IS i i! Mild: 

R i K i 

COK't;' '< 

pOiR mR 

OlMi R! \ - i ( ii.i R f ; i SK k .. . :r;;Rv : 

POkf-.vi- 

1 I :C ; 111'... I pip 1' e-Vp 'i . .1 ' ’ 

POK ! v).v9 

I lie i . vl'ii.n ip .Jis.rbio,.; >>y 

l ; OKi 

.mil ■-■ Mipii ; in 

POK I 1.4-m i t 

! hi. s-. iee11 an !m Imm;; • m 1 

POK i Pi I K i; i i 1 

,ilKI i'CM i m cP 11 its ! i >' 1 .M ; v> ■" 

• RRRsOk In 


POK!- 93J m.PP I k< 
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I o print a character at column X and row V: 

POKE 782.X 
POKE 781. Y 
SYS65520 


X should be in the range 0 39 and Y in the range D 24. 


FURTHER EXCITING SNIPPETS 

I he Commodore 64 is 'cold-started by SYS64738. This command resets the machine to its 
original state. 

PRINT FRE(0)-(FRE(0)<0)*65536 gives you the current number of BASIC bytes tree 
The screen can be scrolled DOWN by the following sequence of commands: 

PRINTCHRSO 9):CHRSf 17);CHR$( 157);CHRS( 148) 

POKE 218,160 

Try changing the POKE to POKE21K.158 and see what happens! 


THE COLLISION REGISTERS 

Always clear a collision register before you PEEK it. This is done by POKEing V+30 (or V+31 ) 
with 0. The collision registers are cleared automatically but this does not always happen quickly 
enough (see Chapter 6). Remember that V = 53248. 

Tlie iollowing POKE will turn oil any two sprites involved in a collision: 

POKE V+21,PEEK( V+2I )AND(255-PEEK( V+30)) 


THE USE OF THE RETURN KEY IN EDITING 

A quick way to abort a line in direct mode is to press the SHIFT and RETURN keys together. The 
line will then not be executed. 

II you run into difficulties whilst editing inside quotation marks, press SHIFT/RETURN then 
reposition the cursor and complete the edit. 
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TROUBLE-SHOOTING 

All the programs in this hook have been thoroughly tested and will work coiiectlv il cnteied as 
LISTed. If you have problems getting a game to work cheek the LISTing carefully. It is much 
easier for two people to do this: get a friend to read the LISTing whilst you check it against the 
CBM-64 screen. The most likely error message to appear is ‘SYNTAX ERROR IN LINE XXX. 
in which case you have probably made a simple typing error (by far the most common is a missing 
bracket!). If there are no syntax errors and things are still not going well it may be that you have 
missed out a DATA statement, here the error message would be 'Ol ! I Of' DAI A ERROR . All the 
long blocks of DATA statements have been provided with checksums, i.e. the value obtained by 
adding all the DATA statements together, and you should get this right before proceeding further. 

It may seem obvious but nevertheless it is worth saying: after entering a program ALWAYS 
SAVE it BEFORE RUNning it.This is especially true of any program with a machine-code subroutine. 

UTILITY AND DEMONSTRATION PROGRAMS 

Here are some programs that you may find of use when programming vour own games on the 
Commodore 64. Particularly useful is the ‘Sprite Generator'. Other programs include demon¬ 
strations of string-handling facilities. 


Sprite Generator 

This generator was written solely for the purpose of designing sprites and. once designed, giving 
you the DATA statements for that character. 

Type in the 'Sprite Generator’ program and RUN it. The left-hand side ot the screen displays 
a box in which you will see a Hashing cursor. This can be moved around the box. wrapping around 
horizontally and vertically at the edges. The cursor is moved with the aid ot a joystick. 

There are two modes, one for INSERT and another tor DELETE. When you aie in INSERT 
mode, every time you press the fire button a block appears under the cursor, and in DELE IE 
mode any block under the cursor disappears. Each mode is represented by a different border color, 
‘GREEN' for INSERT mode and 'RED' for DELETE mode. 

As you create your character in the large box. so a sprite appears in the small box on the 
right-hand side of the screen. If you delete a block, the same pixel on the Sprite will be turned ott. 
This sprite is in fact expanded, both horizontally and vertically. 11 at any time you aie not satisiitd 
with your creation, then simply press the ‘CLR HOME key and both boxes will be cleared. 

Once you have finished press the ‘FI key to display the DAT A tor the sprite you have cieated. 
(Make sure you have no ROM-based cartridge installed that utilizes this key or you will get stiange 
results.) Copy down the DATA and press the fire button to start a new design. 
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A word of warning. Don't ask for the data to be displayed until you are happy with your 
sprite as, in this program, there is no way of re-editing once the data statements have been displayed! 

This 'Sprite Generator' program proved invaluable in the writing of this book; we hope you 
have as much fun with it as we have had. 


1000 REM **** CBM 64 SPRITE GEHERFlTOR **** 

101 0 PRIHTCHRTr; ;|.47> 

18 3 0 s $ 1! !t: a.i !j:[i;! lefLi!?l c; : [ i !!ie»:[ K ?: [i!.: D ; jj . B:ri!;ig.LH j TB!.i 1 ' 

10 4 0 d ■$==' 1 11 

.1. 050 FOR I =0TO7 : CM v I > a?£T < 7.1> ; HERT 

1 06 0 S 0 1. 1. 0 5 ; C 0 5 fg3 77 

18710 00SUB 1450 ; REM SCREEN DISPLPlV 

1 0 W 0 R t:. M * * * * If: * * * * * M Fl I N L 0 0 F‘ *** * * :*)H * * :>K :*fH 

1 0 9 0 i<::=: P E E K C l 9 7 > I,' I F !<5 1. T |-| E M G 0 S U B 1 4 5 0 

1 .1. 0 0 3: F l< 4 T H E H G 0 S U B 12 7 0 

1 1 1 0 IF K 3 3 T H E N F ^ 0 R E M " 114 S E RT " F!_.. Fl G 

;l. 1 2 0 I F10::::: 1 3 I" H E N F = 1. R E Ml •-10 E!.... E T E " F1... R G 

1 130 Ruf ESC+40*V+R, Ml 

1 140 R :,PFEfC G'1,320 • : REM JO VP OR I" #2 

1 3.5 0 IF F' 1 2 6 T H E N V=V -1 : IF V < 0 T H E H V ,= 2 8 

1 .1 6 0 IF P = 1 2 5 T Fl E H V = V ■+• .1 :: I F V > 2 0 T Fl E H V ^ 0 

1 1 'F 0 IF P = .1.2 3 T Fl E Fl R =: R - 1 IF R < 0 T Fl E N R=2 3 

.1. 180 I FP=: 1 19THEMR#Ci- 1 I F'R0-23THEMK=0 

1 3 .9 0 IF ! ::r :=0 Fl M D P; := 1 1 1 T H E H P O l< E S C -i- R -i- 4 0 Hr V... 16 0 G O S U B1 8 4 0 

1 200 I RFC- 1 FiFIDP::::: 1 1 1 THEHPOKESC■+• R + 40H'FV, 79 : GOSUB 1890 

1 2.1. 0 I FF r 0THEFlP0KE532805 : REM GRF-I BORDER 

1220 I FF=: l THEHPOKE532802 sREM RED BORDER 

1230 M2=PEEI< cl SC: •i-R + 40*V > »M :l. =312 

1240 P 01< E C O+R -i- 4 0 Hr V , 1 4 : F : ' 0 i< E S C+R+4 0 Hr V , S1 

1250 F'ORLj* 1 TO50 sF-IERT 

1 260 GOTO 1090 

1278 REM Hr Hr* Hr* Hr DflTfi STRTEMEF1TS ****** 

1280 PR IFITCI4R* 'I 147 > : FORD--1T03 
1 290 F : 'R I NTCHR$ < j. 7 > ;; FIERI 


Listing continued next page 
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1 3 fel 0 !-' R 1 H 1 1 ' vammmmm--' 1“' R I 1 

1310 PR I NTCHR* < 1S > " "I" CHR# 1 146 > 

I i-.j r K i N I “ 

1330 PRINTsPRIHT sPRIHT 
1340 FQRD-0TO8 
1350 PRINT" DRTfl" : 

1 360 FOR I =8324-< D*'7 > T0838+ < D4: 7 > : P- -F’EEK (. 1 1 
1 370 P RI N T P ? C H R T 1 1 5 7 > C H R T C 4 4 > " " " 

1380 F : 'P INTCHRT < 157 > ? NEX T PR INTCHRT < 1 57 > " " ;; NET 
1390 PRINT 

1.400 PR i: NTCHF'T F 1 8 > TAB < 6 > " FPRESS F I RE " r 
1410 PRINT" TO CRERTE SPRITES" 

1420 1F P E E K ■: 56:320 > < 3 1 1 1T H E N14 2 0 
1 4 30 G 0 3IJ B 14 50 R E T U R N 

1 -4 4 0 R E N * * * * * * * * M F : l I N DI 8 F : ’ L. FlV * * * 9 * * * * 

1450 1411*79 

1460 P RIN T C H R ■$ < 14 7 > C H R T < 3 0 > C H R T < 11 > ” * * * C B M " 
1470 PRINT"64 - SPRITE GENERATOR *34 "? 

1 4o0 PR I N I IJHRT 1 4t> L.HRT 1 54 11 sramMnnMiManmni" .” 

1490 PR 1 N I ■' iw in W BUBH M WDI BII IIIHI II IH W IW I WHHW WI II IWII WI li r i lMn nl l l lllll l lP 

1500 F0RT=1T021 

1 510 P RIH T C H R T <■: .1.8 > " 81 " C H R $ < 14 6 > '' ITTTT.T'' 

. 1 . 5 20 P RIN T 1 ' ITTT1.rTTTTT.TTT.FiTTl '' 

15.30 NEXT 

.1.540 PRJ. M I " *" L-HRT 1 8 " »MH!»»it«inwiMiwwmim!iH!iniini8iM ." 

1 550 !“'Fi I H 1 " '' OFIR$ ' 14t".-‘ " 

1560 P RIH T C14 R T < 3 0 > C H R T < 18 > " 1 F' R El S 8 ' 1 ; 

15 70 P RI NT" F U I -! C T IO N K E V $ F 0 R ' 1 ; 

1580 PRINT "ORTR II "CHET< 19 > 

56295 ,-5 ;; POKE: 202-3160 

" I "CHRT < 146 INSERT f'K 

,. 1 > " < OR! ! borde:r > " 

.. 2 > ;CHRTT 1 8 > "D " CHRT < 1 - 


1590 

X=0 V=0 P 

DKESS2955 

1 606 

PR I NT S3 .? D 

t;CHET<18>" 

1 6 1 0 

PRINTS*.?D 

T R I GHTT < ST 

1 6 2 0 

PR I NTST?D 

T ;EIGHTT4ST 

TE N 

IDE " 


1630 

PRI NT3$;C 

:T ; R I 0HT:T C ST 

1 640 

PR I NT ST .? IF 

3 s F: I GFITT.; ST 

H 




JDE 
46 > 


FRED BORDER;. " 
HRT.: IS;. "CL..R"CHRT 
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1 

650 

PR 1 

NT S 

#.?C 

# “ R 3 

c 

HT T 


"TRIOF 

1 

60O 

PR I 

NTS 

# ; C 

-T ; R .1 

c 

HT# 

C ST7 > 

"PLOT 

1 

670 

K T - 

LEFT# < 

8 $ , S 

> 

+I....E. 

FT T C D:i" 

... 2 6 y 

1 

600 

PR 1 

NTK 

#C 

HR T •: 

1 

45 > 

" * SF 

RI TIE „ 

1 

foyy 

PR I 

NT " 

1 - 

— 

-- 

— 

H 

- 1 


i 

700 

FOR 

i<:-: 1 

T 01 

1 :;PF 

I 

NTL 

EFT# CD 

T , 26 > ; 

1 

7 .10 

PR I 

NT" 

1 




1 " :HE 

FT 

1 

720 

KT~ 

L.EF 

T T C 

ST .1 

4 

>+L 

EFT# CD 

T26 > 

.1. 

7 30 

PR I 

NTP 

# " i 

— 



-...I " 


1 

740 

VC:::- 

6 

48 






1 

750 

POP 

EVC 

+21 

, 1 F 

E 

M E 

■IfiBLE 

SPRI TE 

1 

76G 

F ul< 

E 20 

40,. 

13 :: F 

E 

hi 1 

3*64*8 

32 RT F: 

1 

770 

POK 

EVC 

, 5 

REM 


CO 

3RD L...0 


1 

780 

F-r it. 

EVC 

+ 16 

, 1 s P 

E 

M F 

COORD 

HI 

1 

790 

POP 

EVC 

+1 ,. 

95 :R 

E 

hi V 

COORD 


1 

000 

F'QK 

EVC 

•+• o' !3 

h ! *: 

E 

hi G 

TEEN 


1 

818 

POP 

EVC 

+ 29 

, 1 s F 

0 

KEV 

P + 28 ,. 1 

s REM E 

1 

320 

FOP 

I =0 

TO 6 

2 ,1 PC 

K 

E83 

7+1 ,0 s 

IE FT 

1 

830 

RET 

URN 







1 

340 

RE hi 

** 

IN 

3ERT 


F ; ' IF 

EL IN 

ERRITE 

1 . 

350 

TH=. 

I NT 


3 > B 

I 

r.:F — 

3*TH 


1 

360 

EOF: 

y i::.! 

I- 3 # 

r' + TH 





1 

370 

pop 

EBV 

, F'E 

El< <: B 

I 

T 

> OR 

:“i C B I > 


i 

380 

RET 

URN 







1 

390 

REM 

** 

DE 

L..ETE 

P I FI 

EL. IN 

SPR I TIE 

1 

300 

TH.:: 

I NT 


3 > sB 

I 

3).! 

3*1 H 


1 

910 

BV:::: 


+ 8 * 

■r' + TH 





1 . 

320 

pop: 

EBV 

PE 

IK C B 

1 

T 

:• FlNI 

J < 255—1 

SF C El I h 

.1 

330 

RET 

JRN 








ER TO" 

6 UNPLOT" 

*" PR I NTK# :• 

0 

IF’Hi ID 

1 ' * 

** 


Here is a program to change the normal character set into space age characters. 
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1 gi 0 0 R IE li ty. * T S F : ' l-l C E C H f : l R S E "I" T i'll T 
;i 010 REM SLOWER MENTORS: 

1 0 2 0 0 !< E 52,4 8 ::! ::: ' 0 K E. 5 6 ,■ 4 8 :: C L R 
•J. @30 F'OR I -™0T 05 1 1 

1040 POKE: I ■+•22 3 £5 , PEEK 3 I + '532-123 > :: NEXT 
10 50 R E M ;, f Fi L.5 P H FlFi E T T 

1 010 01 p 0 K Fi i.. F' FI Fi 1 2 2 88 T 0 1 25 0 3 F: El HIJ M :: Fi Fi A Fi •+■ X F‘ 0i K E Fi L. F' l-l Fl , X I' 5 E 
MTflU-'HR 

1 8 7 0 R E fi D X : I F X < 3- Fi Fl T H E M P R I H T 11 D Fl T fl E R R 0 R '' :: E N D 
1080 RSH i'l<NUMBERS* 

j. 0 R 0 F' 0 R l -l IJ |1 ;|. 215 ? 2 T 0 1 2 7 5 1 ;; F: E Fl ID Z :: B 8 - - B B + Z :S P 0 KE M U M .• Z s N E X T M U M 

1 10 0 R E fl D Z s I F Z : > B B T H E H I ”' 1 RI M T 11 1J fl T Fi E R R G R 11 : E M D 

1 1 10 REFI TFTi 1 NTER# 

1 l 2 0 P 0 K E5 32 7 2 , < P E E K f 5 32 7 2 > fl M D 2 - 1 Z 4-1 2 

1 :l 3 0 R E l v l if Fl L. P f-I i ::: l B E T 1J Fi T i ::: l T 

i :! 4lj Dl :: 1 j Fl0,0 f.i , 0,0,0 , fl , f ! 

1 100 BFi 11 ■: .22 . 1 ;2 , 1 ?i: 25-1 . 5.2 1 , 1 34. I 34 -3 

1 00 DFiTF-i 2 2 5 36 1 32 r 1 3-5- I 34 ... 5. E 0, . 54 , 'i 1 

1 .1 flfl DEM R2 53,1. 28.. 128,252 i 28 . 1 .3 '54 , (1 

1210 DATA23. : i . 8 , 128 . 1 15,1.1 3-1,25-1 

1220 DA 03 i 0:, 5 3,3' 5 32 , 3-5 , i 34- 1 34 . 1 34 , O 

:l. 2:30 EiFi TFj 1 6,1 S , 5. i:3,56,56,56,56 , i3 

5. 2 4 0 D Fi T Fi 2 5 -4 , 5. 6,16,24,24,2 4,2 4 8,0 

1 250 DFi'T'Fi 1.23,5. 32,1536,240 , 140,1 -40 , 5. 40,0 

1 273 DFi'T'Fi204,1 80 ,. 113,2 , 1 34 , .1. 3-4 , 1 34 , .1.34,0 

1 290 13FIT01252,1:32 , j. 32 , .1.34 , .1. 34,134,25-4,0 

1 310 BFiTFi252 , J. 32 , .1.32 150,1 -42,1 34,254,1 
1 320 DFiTl :: i25-l , 1 30,2152,134 , J. 3-4 , 134,134,0 

5. 3 4 0 D Fi T f ; i 25.4 , ,1 6 , .1. 6,2 4,2 4,2 4,2 4 , O 

5. 350 DATA 1532,1 32 , 5. 32,1 34,1 34,1 34,25-4,0 
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1 370 pflTfi 1 32 1 321, 32 ., 1 50,1.50,1 50,254 0 
1Sfc'U I. JI'i 1 Ht88 6 St ... 40...1 G 40.. £8 68 @ 

13fl 8 D Fl T Fl .1326352,1 4 ,6 6,60 
14 00 D R T A 1 2 6 , 2 ,38 32 64 1 28 ,. 254,0 
1 410 RE 14 :#CHECKSUM^ 

.1 420 DRTR24S07 

1480 RE 14 :+:NUMBBE DRTR* 

1440 DRTfl 1 24 68 76 86 ,■ 10270 1 26 0 
1 >450 DATA 1. 6, 1 6 , 1 6, 24 , 24 , 24 ... 24 , 0 
1 4 6 0 D fl T fl 2 54 2 2: , 2 1 26 6 4 , r 1 2 6,0 
1 4 70 D fl T R2 8 4 4... 6 2 6 6 ,2 5 4,0 
1 4 80 D fl T R 1 3 2 , 1 3 21 3 22 5 4 6 6 6 0 

1 51. w [ '0102524 4,6 , 66 fl! 0 
114 0 Dlfl l Fl :l 28 72: . 252 1 34 .- 1 34 , 3. 34 ,.254,0 
3.5 10 DR'T 1325.3 1 3:3 ,.252.,6,6 , 6,.6,-0 
1540 RE 14 4:CHECKSU14* 

1 550 DR'T'Rfl>740 


1 [300 

REP 

•ifF 4j»i $ 

sir : 

HO DEMO 1 

1 0 1 0 

PR I 

NT CP- 

R # fl :i> 

-7 > CHR# fl 30 > 

:!. 020 

POE 

L 5:32 

80 ., 0 

POKE532 fl: 3. ,0 

1 1:330 

14# <: 

1 3 ~ " 

FIT IRC 

:|< COMPUTER ON" 

1 040 

FIR fl 

•~i 1! 

PHASE 

:rs locked oh" 

1050 

fl # <: 

_h 

TARGE 

: t „,.. " 

.1. 060 

A# 3 

4 > " 

SHE I!. 

.08 OH MAXIMUM" 

1070 

HR •: 

!::r n 

EHERC 

iV SUPPLCr' 10. 547" 

1 080 

R$ a 

fl! > " 

ENG I!' 

ies fit urrp ,, 003 " 

1080 

Fi# A 

7" > ~ " 

El HE MS 

' IN SECTOR" 

1 3.00 

Fl# 3 

S > " 

CURRE 

:HT STATUS! HON I NHL 


Listing continued next page 
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j. 1 1 0 

pi* 9 > = " D I EECT 

HIT - " 


1 1 20 

Fl* C 10 > = "flMfiIT 

COHN FIND 

I HP LIT" 

1 130 

F'O R L = 1 TO 1 O 



1 1.40 

FORT-:: 1 1113, 



1 150 

FT'iRFl- 1 TO30 NET 

t 


1 1 50 

F : 'R I I4TL.EE T* C 14* •: 

L. > T > 


1 170 

F’RINTCHR* 145; 

CHE* c 1 '4 5 

> ;; HE31 

1 1 50 

F'R I NT :: PRINT :: N E 

y t 



1 000 

EE 

0 

If If 

3 T'F 

INC 

. DEMO 2 

if if if. 


1 0 :j, 0 

PE 

I NT 

C HR 

* < 1 
”1 1 

■4 7 

T p p 




1 030 

RE 

RDF- 

,i. 1 i 

'$■ 






11040 

I !*” 

Pi*:::: 


THE 

N 1 

Q 0 



1 050 

IF 

FI*::: 

" 0 !1 

THE 

N :: i 

|0SUE: ]. 181 

T ; END 


1 060 

ft: 

R !...:= 

OT O 






1070 

pf 

INI 

THE: 


9 > 1 

"FIT 



1 @80 

F'F 

I NT 

CHE 

* T 1 

45! 

•CHE* •■: 1 4 

5 ) 


1 030 

HE 

NTT... 







1 3. 00 

F'F 

NT 

:: PF 

X NT 

II G! 

1SIJB 1 ;! 80 



1 1 1 @ 

»■*■.: j” 

•y i~| | 

i-;1 






1 120 

DF 

IT 8 


E E 

.• E* 

. FI , ... l ... E 

, o ,. w., ' 

F ■■ N ,■ P ,■ T 

1 1 3 0 

OF 

T l : l 


E , I- 

i- » 

.. N ... I 

.. D ,. E ... R , 1 

I: - T , 3 f 

1 140 

DF 



T r !• 

E. 

.. M ,. E - T Fi 

,. TS , , ■ 

4 ,. T FI ... D 

1 150 

OF 

i T Fl 


N , t 

, 

. T ,. U F' , 

, E . B , . 

•1, 14 ,, C , i 

1 160 

Di : 

IT Ft 

i- ,■ 

, !'• 

! E 

. E ,. R .. C ... 3 


-i , T , , * 

1 1. 70 

DF 

ITR 



c. 

,. ] , H , T , 

., E ,. K I 

r Cfi! 

1 180 

Ft 

IRT :- 

: 1 T't 

50 

ME 

■I T ;; RETT UR 

4 
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1000 REM STRING DEMO 3 m* 

1010 F'R I MTCHR#< 14?::- 

1020 F'R I NIT RE: -i 19> " ..------.., " 

1030 F'RINITRE:10> ” f | " 

10i40 F'R I NITRE: < 1G > " ft.-----...—.-.J " 

1050 I'T I::::: COMMODORE * 64 

1 060 P RIHIC H R $ < 19 > C H R $ < 17 > 

10 ? 0 c ■$ := RI G H T ■$ •: R $ , 174- L E FI $ < R $, 1 > 

1080 RIn:::CI 

10 9 0 P RIN11H (3 < 1 1 > r H 
1 100 FOR I == IT050 iiNENT 
1 1 , 1 . 0 GOT0 . 1 . 060 













SECTION 2 


Games listings 


So much for the theory; this is what you have been waiting for. We hope that you have a lot of fun 
playing the games that we have written for you. We certainly had a lot of fun writing them. If you 
are typing them in yourself then be very careful to enter exactly what is given in the listing. Make 
sure that you save your program once it is typed in BEFORE you run it. 

We have tried as far as possible to make our programs easy to read and they are structured in 
a way that you will find easy to follow and understand. We have avoided using the Commodore 
Control Characters for this reason, replacing them with the corresponding CURS. The only excep¬ 
tions to this rule are the use in PRINT statements of RVS ON and RVS OFF control characters; 
the former is displayed as a reversed ‘R‘. whilst the latter is a square with a horizontal line running 
across it. These are formed within quote mode by simultaneously depressing CTRL and 9 or CTRL 
and 0. All other oddities are the Commodore characters which are displayed on the front of each 
key. The right-hand character is obtained by pressing the appropriate key and the SHIFT key. The 
left-hand character is obtained by pressing the key together with the Commodore flag key. 

Typing in long programs can be just a little tedious; but don't forget that all the programs 
listed in this section and all the demonstration programs used earlier are available on cassette or 
disk from the publishers. 

Most of the programs that we have written require a joystick which should be plugged imo 
CONTROL PORT 2. located on the right-hand side of the computer, next to the ON/OFF switch. 


HAPPY GA ME S PL AYINC! 
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Demon Dozer 



Demon Dozer will get you in the end: in fact it' dozer doesn't a kerb will. 

Tliis is a game that requires a quick eye and lots of skill. When the game starts, a road will 
appear on the screen and a blue car. which is you. will be positioned in the centre of that road 
when suddenly, a dozer will come out of nowhere and try to ram you. You must evade the demon 
for as long as you can. Once your car starts to move it will keep on moving, making your task 
more difficult. 

When you have played this game a few times, try altering the speed of the Demon Dozer or 
the speed at which you change direction. 
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1000 REM m* DEMON DOZER 
1010 PR INICHR $i 147> 

1020 L.$= 11 " : EOF;I = 1 T04 ;;L^UF+CHRTC 1 57 > ;NEXT 
1030 P 0 K E532800 s p 01< E53281 . r O 

10 4 O G 0 8 U B 1820 : R E M TIT L E 

1050 REM READ SPRITE DflTfl *** 

1860 FOR I =-01062 s READ J :: P0KE832+1 , J s NEXT 
1070 FOR I =0TO62 ! READ J : P0KE396+1 ... J :: NEXT 
1030 F r 0R I =:0TO62 ; READ J :: POKE960+ I J ; NEXT 
1090 PRINTCHR^C147 > 

1100 REM SET UP SPRITES *** 

1 1 10 POKE!2040,1 3 : VC=53248 i POKEVC+21 5 

1 120 POK:E204 114 s POKE2042 , 15 s POKEVC+403 
1 130 POKE VC+39 , 14 : POKEVC+2 3,7 ; POKEVC+29,7 : ' 
1 140 POKEVC+0150 :: P0KEVC+1 -180 
1 150 POKEVC+282 :: POKEVC+41 1 Q 
1160 REM *.W. SET' UP SOUND 
1 170 S:=54272 : FOR I =0TO24 : POKES+ I0 : NEXT 
1180 S1 *54286 :POKES+531 ::POKES+6240 
1 1 90 POKES+24 15 : POKES 1 +5 ,■ 31 : POKES 1 +6240 

12 O 0 L. =: 12 :: X=-15 0 ;; W = 12 : Z=0 S E=0 
1218 P0KE646r14 

1 220 PR I NT CHRT < 1 9 > CHRT < 5 '■ 

1230 FOR l= IT021 

1240 PRINTTABC9>"J “SPC<18>" U" 

1 2 50 N E! X T ;; P 0 !< E V C+31 . r 0 :: P 0 K E V C+3 0 ... 0 
1260 POKES-i-4 , r 33 s POKES , 100 s POKES+ 1 4 
1 270 POKES 1 +4,33 s POKES 1 3.00 : POKES 1 + 1 , Li 
1 230 PR I NTCHFiT < 3. 9 > CHR$ < SO > 

1290 FOR I=1T021 

3. 300 PR INTCHPT L 1 8 > " " SPC < 20 > ; 

3.310 PRINT" " sREM BOTH 9 SPACES 

1320 NEXT I 

3. 330 PR I NTCHPt < 19 > CURT ■: 5 > " SCOPE " 

1340 PR INTCHRT < 19 > TAB < 28 ;■ " HI OH : " 

1350 REM *MAIN L.OOP 


Listing continued next page 
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1 3 6 B I F' C R::::: 0 T H IE H G 0 Si U13 115 Si 0 

1 380 CV=CV+ 16 IFCV>kl 1 W I HbNcV= 1 ; i.;R~=0 
13 S' 0 F' E E i< F 5 6 Si 2 8 > 

14130 I FT"'-- :|. 23THEM2” I 

1410 I FRO 1 9THEHZ = 2 

1420 0M Z G 0 Si U13 :i 5 Si 0 , 1 5 5 0 

1 '4:30 POK El VC+ 8 N 

144 0 l :: ' O K E V C + 4 , R :: P O K E V C •+■ 5 C V 

;| 45 0 F : ' RIN "F C H R f < .1. 9 F T R13 i 6 S' " " I... $ S El 

1460 Jf'SlElNH I THE HU 1 ~8E1 

1 4 7 0 P RIH T C H R T F 1 9 > T Fl 13 *1 3 4 > ; HI 

1 4 80 IF!-' E E K F V G -i- 31 > fl N D1 - 1T H El H 133 0 0 

1 490 I FREER F VC + 30 > RFID 1 = 1 THEN 1600 

1 500 F'01<ElVC+31 0 ; F'OKE VC -i-S3gi . r 0 

15l0 GOTO1360 

1520 REM CAR DIRECTION *** 

1 530 X:= N5 : I FNO 0THENN r -1 0 
1540 RETURN 

1 550 N:=N+5 :: I F r N>250THEHN:=249 
1568 RETURN 

157© REf'1 VTT NEW POS OF' DOZER TNi* 

1 580 R I H T 3 R H D1" I S * 3 4 + 1 1 01' : C Fl = 1 : R E T U R N 
159G REM T4T CRFTliH INTO KERB 
1 608 P 0 K El V C + 2 1 6 :: F 1 0 K 111 Si 1 + 4 ,0 
1610 POKEVC+2.N ;P0KEVC+3.180 
16 2 8 F 0 R V = 1 5 T 0 0 Si T' E P --1 ; P OKE S +1 2 ■+•', ’ 

1630 FOKE53270 r I NT <RNOC1> *8) 

1 640 F’ 0 K 111 S + 4,1 2 9 : F’ 0 K E S -i- 2 4 , V 
1650 POK El VC + 37'I NT '1 PHD S TI > * 15 > 

1660 P 01< El V C -i- 3 Si I N T F R N13 < 1" I > * 1 5 > 

1678 WENT :: POKE Si+4,0 
1680 POKEVC-i-2 1 0 
1690 REM *** NEW GAME 
1700 PR I NTS NET < 19> :CV=1 :CR=S 
1710 P0KE646I NT 3 FIND TI i 1 * 15 > 
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.1. 720 

FOR 11 T04 : P 

RI ITT 

CHRtC .1.7 > NEXT 

.1. 730 

F' OK El '53270... 2 

30 


1 740 

PR I HTTRE: < 1 3 

p R 

ESS FIRE" 

.1. 750 

PR :i: NT TPiE:12 

> "TO 

PLRV RGRIN" 

1 760 

POKEVC+4 , R :: 

•“'OK El 

VC+ 5, CV 

1 770 

IFPEEK '85632 

3 > O 

111 THEN1700 

1 p O j" : | 

PR INTCHRT < .1. 

45 > C 

HEM * 145 TCHETC145 

1 790 

PRINT THEN:: 13 

> “ 

"sREM 1 

1 S00 

PR I NT TREE: < 1 2 

■;» 11 

" : REM 

181© 

CEO T O 1 1 10 



1820 

REM TIT 

...E PAGE 

1830 

PRINTCURT <1 

9 > CHET < 5 > 

1 340 

PR I MTTFiB ! *. 7 > 

" d 

E M 0 i'T *■ " .? 

1850 

PR I MT"D 0 2 

E R 

H 

1860 

PRINTOHR*<1 

7>CHETC17> 

1870 

PR I NTT RB *85.:’ 

" USE 

.JOVSTICK TO 

1880 

PRINT"STEER 

VO IT 

R CAR" 

1898 

PR I NTT RE: < 5> 

"FIND 

AVOID THE 

1 900 

PR I ITT " DEMON 

DOZ 

ER. " 

1910 

FIR I NT TREK 5 > 

" HL..8 

0 WATCH OUT, " .? 

1920 

PRINT "FOR THE i< 

ERE:. . . . . " 

1930 

PRINTCHRT':: 1 

7 >CHET C 1 7 > CHET C 17 T 

1940 

PR I NITRE: < 9 > 

"PIPE 

S3 Fl KEV TO PER 

1 980 

GET AT :: IFFlT” 

""THEN 1950 

1 960 

RETURN;REM 

IHTO 

GAME 

1970 

REM m* SF'R 

I TE 

0 <CAE> 

1 980 

DATAO.,. 0., O f 7 

,. 1 29 

,. 224 ... 7 ,. 189,. 224 ,• 7 

1 990 

DATA 126.,. 224 

,. 6,2 

58 ,. 96... 6,. 255... 96 7 


2 @80 0 fl T H 2 55224 ... 46... 3 2 ,60 .. 96,5,2 5 5 
2018 DATA 160,5255... i 60... 5 ,■ 2551607... 255 
2820 DAT 0224 ,, 5 ,. 2'55160 ,■ 5255 ., 160 ... 6 .r 0 ... 96 
2 0 ; 3 id D A T Fl 4 ,03 2... 7 ,■ 255... 224... 7 r 2:55 ,2 24... 7 
20 4 0 0 ft T fl 255,. 22: 4 ,6, 2 55,96 
2950 REM mw. SPRITE 1 <EXPLODE> *** 

2060 DATA832 ,• 0 27352... 6., 157... 193 104 


Listing continued next page 
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2070 

DhTFI .1.88 

291 3 1 


74,124 

, 44,1 1 8 


249 

2080 

DFIT065,2 

31,242 

r 

31,227 

,178,78 

r 

!;"! !."j | ' 

2090 

DflTFl 3 S'# 

3, .1.56 

4 

7 ,159, 

30 , ?'3 2 


2 , 124 

2 1 00 

D FIT l8 3 6 , 1 

94... 240 

r 

7 3,248 

, 1 98,1 9 


c:r 

...1 

21 10 

DRTR216... 

71,205 

... 

L44,23 

, 15,36 , 

i 

G , 103 

2120 

UFA fl 721 
|:em m* 

3,146, 

8i 

«r, 0 , 8, 

1 44,3 , £ 

r 

, 32 

2 1 80 

8 HRITt 


•2 I.JU2 

z R+.T4 



2 1 40 

DFITFI0,1 0 

, 0,12 , 

14 

3,48,1 

3,255 , 1 

r 

6,1 5 

2150 

DflTFl 25 5, 

240, 1 2 

.«• « 

255,48 

, 1 3 1 89 


1 76 , 1 

2.1.60 

DflTFl 219 , 

128,1 , 

255,128 

, 5,0,16 

0 

.r I 7 r 3 fc 

2 1 70 

007 Fi224 

f , 129, 

,:u. 

24,5,2 

55,160 , 

i 

, 255 

2180 

DflTFl 128... 

0,129, 

0 

0,129 

, 0,7,25 

c:r 

,224 

2190 

Dfl T HW 0 , 

16, 0 , 0 


i-2‘1 ... M , 

•3 .. l i r ! : ;i r 0 


0,0 , i,:i 













3D Tank Assault 



In this fantasy you play the part of an ambusher intent on destroying as many tanks as you can 
with the shells provided, and stopping them getting across the bridge to safety. 

This game uses PET graphics to display the scenery quite effectively. 

The tank and sight are sprites and, like most of the games in this book the sight is tinned In 
utilizing (he machine code joystick routine. 
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10@0 RE-ri T'M 1 : 3 D TANK ft:: 7 SHiJ| 7 T' i+TT 

1 0 i 0 i ::; ' R I I-iIC: H R T' .1 4 ? 1 :: P 0 K E 5 3 2 8 0 8 P * JIF El 5:3 2.3 i. 0 
.! 0; i, F'l P !:: 5 I , 7:2, , , F 

1.0 :0 i-11 :e 5 j :i p, 3 F tiI- It 27 -1 ; j ! > s-pi t : FT; I . L ■; 

j ■: j- 1 i foe- i; ;ii: 0 t mf r it.n to P+i , ' 0 it: r sPt : i 0 ] •:.<i-ir 

j . :■ 10 H-, I . i 1 ; 0 I;-:: 0' ; 1 Ft j S F'l i| l:F396 I I IN I EE i 00 b 37 i HI i! 

| 01 i;i i OF - -4 j. 4 :1 Ft.!-! " i- ,"8 0! .. '' 1 It I , 1 

;i ! : .;i ?: 1 F M f i i :: i II...: ; 1 I E I: it: ! 

I I 7:0 it 1 : l C : 'FF ! iPF' PIT "II, ‘C ij! ! ; |11 Mr-! it. ■ 00 -it: 

I ■ : 1 'i ’ Ml . i ! .M ' 

| ] I-!,-; I"-!.: i f , Ft-:- ! 4 , ■ OR ■ 21 i. ■ m3 13 F NiPfiNf. ! "f Hi i!: 

I :! j ! i j -' ( It E ..... 10 , t HI i j-'I 1 IF' ■ .. 15 ! . 1 Ft 

:l ! '03 ■... it 11 : 3H-- Fpj.-s-P i ■■ t HIT} it-; ■ Hi' T :l 3 ■ 

; t -|-0 t ImPM' " it: EH 20 ' 003 Fit 0 

j :i. 0 itiOt.i. ![-> 10 30 0 V i 13 F.it'Fiti ’ t'F'EEH 

I F - FFH mV : 330 PRPFiMIFT EPS 


:!. i 70 FTP:: 

49 1 52 

, 85 :: PO 

024:71 b 2.,- o 


1:1.30 i ;: 3jk 

4:3 15 6 

.,- .250 ;; F : 

O K E 4 9157, 

.J 

j. .230 Put: 

>1-9 j. FF 

.1. 0 0 F 

0KE49 1. 6 1 ,. 

•J 

1200 F-7.jp 

4 9164 

200 F' 

0KE49 1 65 , 

I:;! 

1210 F’OK 

:491 7 7 

.,. 0 :: PCP: 

E 4 9 1 68 ,- 0 


1 220 POi< 

4 9.1 6 F 

, j. 5 0 i | ;:: 

OKE4-9 17 3 , 

18 2 


j 248 RE 13 MR IN LOOP' 

1250 ' 7:7]' .I- ! I F'T FI 4 0 "I" HE N 1" =: 2 5 !| 


. 2:60 

EOF 

IF 5 

3250 , 

j 



. 278 

PR I 

NT 

3 :$■'" st: 

ORE 

;; "SE ;:PRINTST;8Pi 

11 1. 5 9 " i-l I GFI 

230 

p'H; ! 1 

NT 

St ; S F 

C t 2 

9 M SHE LEE: ; "SI-1; C 

•IRT t 1 57 t " 

!. 290 

IFE 

IFF- 

-11 THE 

HFII 

:=SE 


. 300 

2 =:: F 

EE. 

< 4# ]. 

6 9 > 

: ¥::::F'EEI< t 49 1 73 > 


1. 3 J. 0 

I FF 

FFF 

1T i-l El- 


0 


. 320 

PDF- 

Ef 5 

3243, 

2 :: F 

0 K E 5 3 2. 4- 9 ,V 


1. 330 

F=:F 

EE 

< < 49 1 

j-' 1 3 



. 340 

F'OF 

E4 

9 277, 

0 



1 3 50 

I FF 

=: 1 

THE NS 

H==E 

H.i. 


L 360 

IFF 

=71.171302:: 

T -i-1 

4 H H13 V == 1 5 0 T H E N G 0 

SUE: 1 390 
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1 370 F’OKE4SPI. 7'7 ,.0 


1 : 

>90 

REN T! :: 

INK 

D. 1 . 

s: 

HTER 

5 R F 

TEST 


1 

j- 0 0 

POKES- 

129F 

1 

6 

£45=9 

E 4- 1 

+ : H S i._l i 


1 - 

!• 1 . 0 

SFPTTK 

1 







1 < 

1-20 

POKES- 

■ 2 r'* 

E 

:: 

'0KE5 

4 2 E 

0 , 0 


1 

1730 

POKES- 

• 2 7 (: 



POKE 

5 4 E 

31:3... 33 


1 -■ 

i 4 0 

POKES- 



. 1 . 

POKE 

542 

9 !,, 31 


$■1 

i 50 

POKES- 

- s'!'- 

r i::i 

-n; 

i POK 

”54 

292 ,. 240 


1 -i 

160 

POPE -2 

'55 1 

01 


i'T'EP. 




. 1 . * 

|. 70 

f oki. :s- 

"7 :: 

,.| 

“ 

' i: POK 


28 7 ,!.... 


1-1 

100 

POKES- 

2 

r 

{ 01 ; 

i i; F'OK 


286,20£i 


1 

190 

POKESS 

:28E 

r L 

;; HEP TL 




H: 

580 

POKES- 

..55 l; 

,. 1 


■< : POK 

E54 

2 : so ,. i- 


T 

i:!. 0 

F~ 0 R V ~~ 1 

5TC 

0 E 

T 1 ; 

:p. :i. $ 

z '0\< 

IF 2452 9 |;F . 

•0 

1 !: 

:«20 

POKES- 

273: 



'OKIES 

421 

7' . 200-t 4 


i'. 

;i30 

POKES- 


90i 

POKE 

!”» 41::! 

86 ,9 Ei 


0 : 

540 

POKES- 

2:9 € 


:: 

'0 FEE'S 

326 

9, :!. ;;HEP 

i Pi .4 4.1 

t 


POKE5'4 

27 € 

0 

sF 

'OKIES 

429 

0 , 0 F'OIK 

E : : ! 4.: S O . 

H: 

568 

POKES> 

*:! 

.*• E 

:;F 

'OKIES 

32 £ 

.9,3 5 RET 

UR hi 

:l. 

570 

REM 

E 

hi: 

L 

iRME 

01 

“ITHE m 

* 

1 •: 

;i 0 0 

PE I H"!' c 

'HIT! 

c 1 . 

“•j; 

CHE* 

C i ? 

5CHE4T 1 

7' CHET £ ‘5 ;> 

1 ' 

590 

PR :i: NT'T 

'RB C 

r 

"F 

■RES Si 

R 

KB V 1 U 

F'LTlV i'l O l ::; i ]. N 

it 

0 0 

GET R:® 

:i: ft 

$r.-. 

" 1 

THEN 

16E 

01 


.1.1 

; 1 0 

PR I NTT 

HPT 

£ .1 

44 

5 :P0 

<E5 

32451,0 

SFFH59 sSE=6 

it 

> 3 8 

REM DF 

■RW 

sc 

RE 

4EN £ 

Ti._. 1_. 

SPACES 

1 

1 «: 

540 

F'R I NTC 

: hi R 4 

£ :i. 

■44 

> ; : F 

LIFT 

it- 1105 P 

RXHT CHiTT J. 5 

Pi 

il IT 

"CHR:iP< .1 

44 ;• 







1.1 

550 

PR I NTS 

;PC < 

3 S 

4 , 

R $ " 

i „ 



it 

160 

PR I NTS 

;pc ■: 

37 

.1 

RT.pL 

EFT 

■$ £ SF' ■$ , 3 


i t 

•70 

PE I HIT 


it r; 

l-’i 

■ r ; -{■ -j )i 

NT* 

;LEFTT- 

S F' ’$ , 6 > 

it 

5S0 

PR I NTF 

:■$; L 

EF 

‘pi 

-SEPT 

,• . 1 

; C H R T £ 1 

2 - 6 1-5., 2:5 „> 

$ 

: .1 90 > ; LEF 1 

' ■$ £ 

FT 

.*• 1 

’ ;i 




it 

>9 ij 

F : 'R I NTF 

" L. 

EF 

T 

■ £ SFEf 


“ •::> F* L- 2 r’ 1 

> NET ;LEFT* £ 
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116 GAMES LISTINGS 


.1. 700 

PRIHTR* sLEPT*':'SR* 

, 4 ;> 

:: CITIR* E 1 27 3' 

:• SF’C E 25 ’> ; k* ; 13HR 

*E 163 

3- ;LEF T *ESP*,9) ; 




1 710 

PRIH TE* ;LEFT* E SP* 

r S j 

?CHR*E 1273' 

? SRCE 22>R*;CHR* 

E 1 9 1 > 

;LEFT*E SP* 10> ; 




1 '320 

ill 

•*rr 

, 7 y 

03 H R * E 1 72 3' 

SPCE 20 3' R* ; CI-IR* 

E 169) 

1 EFT'*ESP* 1 1 /> :• 




1730 

PR INTR*; LEFT:* < SP* 

r 9 

s 1 ! F 0ii : 'L E ~~ 1 T C 

••I 

1740 

PE IHTCHR* E 162 > ; E* 

11 i I 

:• : NEXT' ;:PRI 

•ITR* EFT* E SP* , 

.1. 750 

PR I NTE* ?SP*; SP*; 




1 760 

PR IHTE* ; LJLLF T* E SP* 

, t e 

?CI4R*E 127 

1 ;8PCE 14 3' ;R* ;CH 

R * <: 16 

9> ;LEFT*ESP*, 14 3' ; 




:l 770 

PRIHTR* ;L.EFT* E SP* 

, 12 

3- ?CHR*E183 

.' ; SF’C: ESC' ;R* ;CME 

* e 18? 

;•; LEFT* E SP* , 1 7 > ; 




1 780 

PRIHTR*; LEFT* ESP* 

, 12 

3' ; CHE* E 172 

3' ; SF'C E73'R* ; SP* ; 

1790 

PRIHTR*;LEFT*ESP* 

! P 

3> ; SRC: E .1.0 > ; 

R*;CHR*E 187 3' HULL 

ft* a 

P*,17>; 




18001 

PRIHTR* ?L..EFT*ESP* 

, 1.3 

> ? CHR* '3 1 72 

3- ? SPCE 5 3' ;R*;SP* 

ii 1 1 1 1 ■ 





181 0i 

PRI NTR* ; L.. ILL FT* E.SP* 

, 15 

3' ; CHR* E 1 2 7’ 

3' ; SRC '3 2 > ; R* ; CHR 

t E 163 

3> ; SET* ; " 




1 £320 

PR 1. NTR* ; SI--’* ; SP* ; 




1 830 

PRIHTR*;SP*sLEFT* 

E SF :: ' 

* , 1 9 3 1 ; 


1 840 

F'ORT= 1 'TO 10 INTE 

PHD 

E T I > *28013' ; 

: u::ii<E55296+e i sp 

OREL 1 £ 

I24-H2,46 sHEL; 1' 




1850 

POKE2822,160 PQKEL 

!;;;i S 2 

95 r 0 


18601 

POKE 20 2 3,1603 s F'OK ILL 

562 

94,0 


1870 

POKE55463,1 sPOE: El 

i 91 

, 81 


1888 

RETURN 




1890 

REM SIGHT SPRITE 




:t. yuy 

DP 1"FI255,255,255 , C 

0 2 

0 0 ... 0...0 ,. g! 

10 ... 0 ... 0 r 0 10 10 ... 0,0 

0 , 0 

0 




1 9161 

13 EH" 14 0i , 24,0,0,24,0: 

0 

£4,0 , fci , 0,01 

, *8l ,224,0 , E3 , 

0 0 

: 4 , O , 0i24,0,8 ,24,0 




1920 

DHl'flO , 0i, 0,0 0i , 0, E: 

0 

00 0 , i-li ... 25 

5,255 255 

1930 

REM TANK SPRITE 




1940 

DPT 190 0 .. 0,0,0 01,0 

0 

10 ... 0 ,. 10 ,. 10 ,. 0 ... 

0,01 0,01,01 , i-3 , :L3,0 


, 0 , 0,0 

1 9 5 Li D 14"!" R t:i, § , 0 0 , :3 1 , 0 , i -i , 63,1 2 8 S :3 , 2 551 S' 2 0 , 1 3 
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2 r 0 






1960 

IJRTR0 ,6 

3 ,0,3,23 

5... i 32 

,6,1 

72,160,11,255,240 

1 970 

DRTR .1. 5 

255,208 

1:5,85 , 

96 r 2 

,255,1:32 

1980 

REM M/C 

DRTR 




1990 

DRTR .1. 20 

1 7320... 

3,14 J. 

, 29 , 

19:2,173,21 

2000 

ORTHS', 1 

41 , 30 , .1.9 

2,169 

, 71 , 

141,20,3 

201 t;i 

DfiTFl 169 

, 1 92 ... 14 J. 

, 21,3 


96 , .1.20 , i 73 

2026 

DlRT FI 2 9 , 

192 ,. 14 .1. , 

20... 3... 

173 , 

30,192,141 

2036 

D FUR 2.1 > 

3 , SSI, 96 , 

1 7 32 

7,19 

2,205,1 €■ 

2:8401 

DRTR192 

240,3,7 

6... & 5 

193, 

169,255 

2050 

DRTR 141 

,. 27,. .1.92 , 

1 62,0 

, 160 

,0,135,2 

2060 

DR 133220 

,. 14 1 ,28 , 

1 92,1 

6 3 r 2 

24,1. 53,2 

2070 

DFl T i : i2:20 

, 1 85 0 , 

2© , 7’2 

173 

,28 , 192 

2030 

pH I"R1 53 

,. 2.3:2:0 , 1 

89 , 8 , 

192 , 

22 1 , 21 ,- 1 92 

2090 

DR IR189 

, 9 ... 192,2 

3 r 2 2 '. 

, 192 

, J. 44,1 8 

2 1 00 

DFl T fl .1.89 

,. 8 ... 1 92.,. 1 

'57 , 2 1 

, 192 

,189 , 9 , 192 

2 1 1 0 

DRTR157 

.,22,. .1. 92 , 

1 04 , 7 

4,72 

, 76 ,162 

2.1. 20 

DR 1331 92 

,104,74 , 

72 , 1 7 

6,1,2 

, 7:22:, 21 

2130 

DRTR 1 92 

., 189., 2.1. 

192,2 

01 , 2 

55,203v3 

2 1 40 

Ul-11 H222 

r 33! ... 1 32 r 

i y9... w' 

1 , 19 

... 22 1 ... 1 k: 

2 ]. 50 

DFl"133.1. 92 

, 189,22 

192,2 

53 , .1. 

3,132,144 

2 160 

DRTR .1. 8 , 

.1. 89 ... 1 2 ,, 1 

92,15 

7,. 21 

, 132,139 

2170 

DRTR 1 3 

192,. 1 57, 

22,19 

2,10 

4 , 7’ 4 , 72 , 76 

2180 

DRTR2 07' 

, 192 ,. 184 

., 74,7' 

2,1 7 

5 , 8 , 254 , 21 

2 190 

DR TR192 

, 208,3 ., 2 

54 , 22 

, .1. :3 2 

, :l. 33 , 0 ,1. 92 

2200 

ORT hi 2 21 

, .1. 7 , 1 92 , 

189 , 1 

., :l. 92: 

, 2153 , 18 

22:1. 0 

D FIT hi 1 92 

, 1 44 , J. 8 , 

1 89 , 0 

... J. 92 

, 1157 , 1 7' 

2220 

DRTR .1.9 2 

, 1 89 , 1 ,. 1 

92 , 1 5 

7 , 1 3 

, 192 , 104 

2230 

DFl 1 ITT3 , 

■'2: , 7'6 , 1 ., 

1 93 , 1 

04 , 7 

4 , 72 , 1 70S 

32:40 

DR'T'R.1 1 

722 .- 1 7 . 1 

92 , 18 

3 , J. 7 

, 132,201 

22": .0 

Dl IT i i .'53 

, 2:0:3 , 3 , 2 

22 , 18 

, 192 

, 189 , 1 7 

2260 

D Fl ITT ! 92 

,221 ,4 . .1 

32 ., 18 

3 ,. 1 8 

, 1 92 , 2:53 , 5 

22 70 

DRT R 1 F. : 

, 144 , % 3 , 

1 89 , 4 

, .1. 92 

, .1; 57 , 1 

2280 

i fi l l R 1 9,3 

. 189, 5 . 1 

33 , 1 

7 , 1 8 

, 1 92 ., 1 04 

2290 

DRT R , ’4 

7 2 , 76 ... 46 

, .1.93 , 

104 , 

7 4 ... 7 2 ... .1. 7 

3 00 

DRTR 8 , 2 

54 , 1 7 , 1 9 

3., 20:3 

...... 2 

54 , 18 , 192 

27. 1.0 

DRTft104 

, 74 , 176 , 

... 1 1 > 3 

, i, i 

53,25 , ]. 92: 

2 320 

DRT R2 00 

i-;! 

, 22:4, 

4,24 

■3,3,76,91 

2938 

DR TFT .1. 92 

,238,27, 

1 92,1 

08,2 

3 ,1 92 

■hi 

IJH 1 HRb9: 

14 skLI'T T 

...Hi::. Cl'. 

v-UMT 











Sub Hunt 



•Radar room to bridge ... enemy subs gaining entry through underwater caverns ... drop depth 
charges! ! !'. 

The subs come at verying depths and speeds, so time your drop carefully or another one will 
escape. These submarines are quite clever too! Just when you think you ve got one. it dives! ! ! 
Oil well, there's always another one. 

Don't let more than 10 subs through or the game is over. 

The ship is moved left and right across the screen by using the joystick and the charges art- 
dropped by pressing the fire button. 

Good hunting! 




SUB HUNT 119 


1000 REM *** SUE-: j-SUHT 
1010 | : 'R 1 NTCHFS'T < 1.47) 

1 020 P 0i< E532S 0 0 ;; p 0 R E5 32 8 1 6 
10 30 P 0 i< E 5 42 76,0 : P 0 K E542900 
1840 FORI =49183T049478 : READ J 


POKEI , J ; CC=::C 

C+.J sNEXTI 



REHDJ l'FCC<3 

JTHENPRI NT " Dl'i'T 

H ERROR" ;; 

r Mr 

FORI=0TO62:R 

EFllJ J s POKE I +8 31: 

J ::NEXT 


r ORI-0TO62sR 

1—. 

Li 

J sMEXT 


“OF: I :==0TO62 R 

ERD-J : POKE I +960 

, J :: NEXT 


3VS49183sREM 

INSERT J’OVST I 

CK HEDGE 



1 1 10 3 C == 1024 : C 0 ~=552 96 

1 ;!. 20 FQRT-:0TQ23Sf:: l ::, OKECO+40+T , 14 

1 1 3 0 P O K E S C + 4 0 •+• T16 0 : H E X T T 

1 1 4 e F 0 R T ::=: 0 T039 !! P o !< E 5 6256+ T , r 5 

1 1 50 POKE 1984 + T1 02 : NEXTT 

1 1 '3 0 P R .1141C H R ■$ 1 9 > C H R < 5 > ' 1 8 C0 R E :: 1 ' S E 

1 1 7 0 P R IN f C H R $ < 1 9 > T A B < 13 ) C14 R $ < 18 > C H R $ < 1 5 4 > "< < S U B H I.J H T 

» " CHE# < 1 46 > 

1.1.8 0 P R 1 N T C H R # < 19 ) C H R $ < 5 ) 1" R B < 3 0 ) " HIG H ::'' HI 
1190 REM .JOVSTICK PFiRfiMETERS *** 

1 200 F' 0 K E491 52... 60 :: P 01< El4 91 5 3... 0 
1 2 1 0 F' O K E 4 91 56255 ;i P 01< E491570 
1 220 P 01< E4 9 1 60Si 2 ;; P G K E 4 9 1 6 1 r 0 
1 2 3 0 P 01< E 4 9 1 6 4 92 P O l< E4 9 1 650 
1 240 P O K E 4 9 1 6 & 0 ; P 0 K E 4 9 1 7 7 ,0 
1 250 POKE:49 1 69 1 50 : P0KE491 73 ... 100 
1266 REM SET UP SPRITES *** 

1270 VC=53248:P0=2040 
1288 POKEF'O , 1 3 sPOKEPO+1 - 14 
1 ==! 9 0 F : U K E F ■' U + 2 .r 1 5 

1300 POKEVC+21,3 sREM TURN ON SPRITE 0,. 1 
.1. 310 POKEVC+390 : POKEVC+400 : POKEVC+41 , 3 
1320 POKEVC+293 sREM EXPRNDX 1 ,© 

1330 POKEVC,50+1NT < RND < TI)*150> 

1340 POKEVC + 2,. 150 ::POKEVC+392 sREM SHIP 


Listing continued next page 
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SO POKEVC s-4 . :i 20 s POKEVC+5,1 70 :: REM BOMB 

OF 1,1 "i i'lEl.Ti'i i... OOF' 4 44 

B-i ; 0 : ; F ! HIFFIHI = : SE 

: ill l THE: ■: 6 l ;• BE : PR I NTi HRT >: 1 F' ■ TFlB S 35 • r H I 

X 4i'Od POISE 4 2 1 77 ,. o 

1.470 1 FF3~ i "F HEMDR= 1 

1 '130 IF- ppii i HEE I-i F :: ’ 0 K E V C+2 1 , 7' 

14B0 IFDR^lTIHENBV^BV+a 

J 5 Li O I f B S ' > 2 12 T H E M B V * i 1 0 : F' O I S E V C + 2 1 , :3 D R0 
.1 1 7 i i:' p 0 o; E V C 4- 4 B 2 P 0 K E. V C:+5,13 V 

! 1 . -I ' 1" IF F or 4- 30 , 0 

1 ' ■III ! -'t El< L , 0 ' lo TDSo o THEM 1 580 

i 'O . O o7! F '32 254 FI-IE 1-H 93 SUB 1 S' 1 O ::E SC-ESC +• 1 ; 1 FE8C2 9 THE.’ 

!■ I X 7 90 

1 5 ! 1 I F R i •■! 0 < 1 S ■ S „ 0 3 T H t. H S V S V+D s f F' S V 7- 2 2 0T H E. M S V == .2 2 0 

1 5 30 I 'OISE" VC:-i-0 , BIS OKE VC3+- :L 3 V 

1 ,: L F'0 00 ! j 11 400 

.73:9 0 REM 444 DIR ETC! HIT OH SUB 422 
1 5 9 U '3 F " ii S E + 5 0 + I H TS V 5 7 -i-13 

I 'j 'L F'i :j< [-. ! 1 4r : 3 i ; F'UKfc.5429 J o'1 

L . t 0 i ■' i J FS T J Til 5 0 R .[ N 7 S F'! 11 j S T I > 4 1 5 3 

1 I F93 F-' OKE'542 8 7 , l N T < RI4I3 S 7 I > 4 1 00 3 
;•! "S To PER E 54 2722 , 100 j F'OKESS 428E ,. 100 
] rS : TiiS ' TE; ; ]' f 

1 T ;, 00 F'OIl E542 7B , ST ;; P0KE542 20 ,. 0 











SUB HUNT 121 


1 0 

F 

OKIE 

l ( ( I 

c+ 

21 2::: 

F UR 1 

1 T 

05 

L10 : 

HEI : 

IT 

28 

G 

OTC 

:l. 

31: 

0 







36 

IF 

EM 

4 

hn 

MEW 

SUB 

PCS 

III T 

III OH 

m 

i-:* 

40 

o 

V "r. 1 

5 

0 + 

I NT <1R 

HD < T 

I > * 

"•? 1ST 

r •_.< 

j »8 

M :::: f 

ji 

50 

F 

OKE 

v 

C: ... 

SIF :: PO 

KEIVC 

4- 1 





60 

[;; 

is I !"• 


< F 

HD < T I 

> #8-+ 

i > 





70 

p: 

r 

OKE 

i”' T t 

p 

04 
t-1 

21,3: 

B't'= 1 

1 0 

DR 

-0 



9 0 

IF 

EM 

T 

# :'F 

SORE 

't' ! G 

FINE 

0 

VEIR 

: 'N 

■F’E 

00 

F 

OKIE 

c: 

42 

*7 I”) " "1' 

: F'Ok 

Ell 5 4 

■p p 

7 r 3 

1 


i e 

F 

OKIE 

n:r 

42 

7 S15 

FOR 

l<~ 1 

TO 

4 



20 

F 

OFT 


50 

TO 120 







30 

F 

OKIE 

e:f 

•_.* 

42 

r 5 ,i- 1 " 

POKE 

542 

7 2 

IGio 


40 

h 

t. ':■< i 

;; 

ME 

f 







5 0 

F 

OKE 

tr:; 

42 

7 € , 0 

SE~0 

sES 

£?= 

0 



S 3 

F 

OET 


1 7 

03 : F-F: 

IHTC 

HE* 

<1 1 

7 > s 

"■IE; 

, T 
•i 1 

70 

F 

R 11-- 

T 

TF 

El: -:| 7‘ C 

H R * 

irv h 

F’R 

ESS 

fi 

KE't 

80 


ETB 

* 

; I 

FR* 11 

" THE 

H 1 8 

0 0 




9 0 

F : 

IF: % I-. 

T 

CHE*d 1 4 

i - ' .!* Jj Li 

OTO 

i :i 

1 0 



00 

IF 

EM 



M ,■■■’ C 

JOVE 

T I C 

i< 

DAT 

ii 1 

Nf* 


910 II 

HOT Ft 1 

20 

- 1 73 



3 

31 

■i 

1 


cl. 

3 

1 

9 

3 

1 

f 


., 2 1 

920 1 

HFi TF!2 

, :i. *= 

1-1 3 

0 

r 

1 

52 .. i 

6 



"7 

i., 

1 

4 

i ... 

k' 

0 



930 1 

HFlTFl 1 

S 9 

- 1:92 


1 

4: 

. 2 1 

r 

T. 



W .«• 

9 

6 

, i 


0 


i 73 

940 I 

i FIT 192 

9 


i 

4 

1 . 

20 

3 


i 

i 

3 

•71* 

0 

-i- 

9 

3 

r 

1 4 1 

! 50 1 

1H 1 FI 2 
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2078 

DFiTFi 192 1 8:3 

32,19; 

3,253,13,192,144 

;;i:080 

DliT A 1 8 .. 1 89 1 

2,1.92 

, 1 57,2 1 , i 92 , .1.89 

2630 

DFiTFi 3. 3,1 921 

::r. •-:> -j 

, 192,10 4 774,72,76 

2 1 00 

DFiTFl20? , 1 92 

1 04,7 

1, 72 ,176,8,2S4,2 1. 

2110 

DFiTFi 192208 , 

”• n:r , ; 1 

,22,192,189,0,192 

,2120 

DAT' Ii2£ 1 , 1 7 ,• % 

32 ,18 

i , 1 , .1.92,253,18 

2 :i. 30 

DFiTFi 192 144 

18 , :l. 8 

1,0,192,157,17 

21 48 

DFiTFi 1 92,189 , 

1 , 1 92 

, 157,18,192, 104 

2 1 Ski 

DilTFl74 , 72 ,76 

, i , 1:9 

3,104,74,72,176 

2 1 60 

DFTT'Fi i 3 , 222,1 

7,192 

, 189,17,192,201 

2 3,70 

DFiTFi255,208 

G'G'V 

, 1 8,1 92,189,1 '7 

2 1 80 

DFi TFi 1 92 22 3. ... 

4,1 92 

„ 1 89 ,. i o ,. i 32,253,5 

2 19ti 

DFiTFi 3. 92,144 , 

:l. 8,18 

9,4,1 92 .,. 1 57 , i 7' 

2200 

DFiTFi,t 92,1 89 , 

5,192 

, 1 57,18 , 1 92 , 4 0’4 

22:10 

DFiTFi74,7276 

, 46,1 

93,104 , 74 , 72 , 176 

2220 

DFiTFIS 254 , 17 

1 8,3 r 

3100 ,. 3 ,. 2514,1 3 , 192 

22:30 

DFiTFi .1.04 74... 1 

7 & .<• 5 r 

169,1,153,25,192 

2240 

DFiiT-iF'DD , 232 , 


24 , 4 , £40,3 , 7'6,91 

2250 

DFiTFi 192 238 , 

27,19 

3 , :!. 08,29,19:3 

2 2 6 0 

UHi Ii3b394 h'E 

FI 4: C FIE 

3KSUM4 

2270 

REM 444 8PR I 

te: 0 

CSUB> 444 

2280 

DFiTFiy ... 8 ,0,0 ... 

0 <r 0,0 

, 0 r 0 ... 0,0 ,0 r 0 , S r 0 

2290 

1J f 1T li 0 ,. 1 2 0 ... 0 

, 12,0 

, 0,1 2 ,0,1112,28,0 

2300 

DFIT 1923 1,255 ... 

240,1 

59,255,248 , .1.27 

2310 

!JFIT li 109 ,. 1 88 , 

95,25 

5,248,231,255,240 

2320 

DFiTFi .1. 92,0 ,. 0 ,. 

0 0,0 

, 0,0,0,0,0,0 , El , 0 

2 

D liT 110 ,0,0,0 ., 

0 , 0 0 


2340 

F:EFl'1 4*i> : SPRI 

TE .1. 

kSHIp> 444 

2 350 

DFi liifcl., 0 0,0 , 

0 , 0 ... 0 

, 0 , 0 , 0 , 1 20 , 0 , Fi 

2360 

DAT Fi 3. 92,0 ., 0 

224,0 

,5,193,32,3,£25 

2370 

Dil i 11200,231 , 

251,2 

42,255,255,255 

2380 

DFiTFi255,255 , 

255,1 

37,255,254,63,255 

2390 

DliT FI 25 4,31 2 

i~- c:r ~t cr 

•_.* i* iii. •„.* 

2,0 ., 0,0,0 , 0,0 , 0 , 0 

2400 

DliT Fill , 0 y 0,0 „ 

0 , 0 , Fi 

, 0 0 r 0 0 , 0 r 0 

24 18 

REM 444 SF'RI 

TE 2 

FI30 ME: > 444 

2420 

DAT 80 , 34 , 0 , 0 

r 0 0 

0 , 84 , 0 , 0 , 0 , 1 , 16 , 0 

2430 

DF1TR0 , 4 , 0 , 0 , 

i p 32 .• 

0 , 0 ,. 0 ,. 0 , Fi ,. 34 ,0, 0 
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DFiTFi 1 1 2 , e 0, 24£:00 , J. £0 0, 0 48 0 0 
DFITFI0 0 0 >r 01 0i „ 0 r £i „ 01 „ 0! 01 „ 0 „ 0 „ 0 0 01 
DfiTFl© , 0 0i0i0i 0 0 0i 
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Dog Fight 



The dog tight takes you back into World War I and puts you in the cockpit ot a biplane ovei the 
English Channel. Your job is to shoot down as many enemy aircraft as you can. Because ot the 
prevailing wind, you have to be very accurate when targeting the enemy, and you may find you use 
as many as 30 bullets on one plane. Guide your sight over the plane and shoot like mad I ' ! 



DOG FIGHT 
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w. 










1 

0 

1 0 

REM it 

tt 

M 

2C 


JO’t 
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0 

30 

drift: 

14 

1 
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, 1 s 

cl 
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9 

r 
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2 
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DRTR1 
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r 
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y 
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0 
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1360 

□ RTF! 

192 2 

3 



, 1 

s 

3. 

1 0 

8 

... 

IS 1 , 

3. 92 



1 3 70 
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4 4 4 : c 

•HE 

3 
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RERD 
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C C r.r C 
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RERD 
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■H 1 

4 
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z 

DM 

E 

R 
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0 ,. 

0 

01 
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01 

, 0 ... 

0 ... 0 

r 01 

. 0 , 
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DR 7 f-i 

0 , 0 , 0 

1 

0 

cr 

»■ 
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3G ... 

0 

... 

,. 10 . 

10 ... 0 

,. i 
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1 540 
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195 , 2 
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r 

0 , 

G G 

... 

0 

0 : i... 

G 

G 

... 01 , 

0 1 

95 

■ 0 ... 

1 559 

fiRTR 

0 , 0,0 

, 0 


© 

0 ,. 

01 

r 

3 ... 0 i 

r 

0 

... 01 , 

01 ,. 01 

r 0 

01 r 

1560 

DFlTFl 

3 , 0 B 

, @ 


0 , 

0 

01 
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REM 

4:4 4 



F 

8 F 

R 

I 

TE 

1 

> 

4 4 
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2 

f; 

EFI 
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1 590 

POKE 
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;; 

HE 

XT 

T 









I. 6RD 

DFlTFl 

0 r 0 , 0 

, 0 


0 r 

01 ,. 

01 


3 ,. 0 


0 
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0 

■ 01 ... 

1 6 10 

DFlTFl 

24 , f 0 > 

cr 
CC. •...* 

!”i 

.r' k! 

55. 

.p 

2 

::r cr 

9 

/ 

24 

1 3 

48 1 

1 620 

III ITT R 

9013 

o... 

r 

r 

6 t 

... 

i 

46 , 

6 

9 

3. J 

6 ... :i. 

8 ,3 

• G 7 

1630 

DFlTFl 

1261 

94 


cr 

5 

ci! 


Cj ~. 

cr 

cr 

.- & r 

60 

8 ,. i; 

•I , 9 

1640 

DRTFlO , O , 1 

2 9 

... 

01 

1 , 

5. 

d! 

91 

d! 

C; 

, 0 ... 

01 0 

01 

- 0 

1 650 

□RTF: 

0 ... 0 ... 0 

r 0 

... 

0 „ 

0 
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SF 
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i 
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d! 

> 

44 
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1 670 

FORT 
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F 

0I< 

El 

+ 

y 
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I 

NT -I R 

1-ID F 

TI 

■ 42 
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:= 

TI 

CK 


p 

ORFlhlE 
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S $'■ 

44 
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V 1 s: 1 
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si 

cr 

.... 

cr 

....i 











1 7 1 0 

POKE 

49152 

.r 

0 

: F 

OK 

E 

4 

91 
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1 720 

POKE 

49 1 56 

«• cl. 

cr 

.... 

01 " 

F'C 

K 

E 

4 9 3. 

5 


, 0i 
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1 7 3 0 P O K E 4 9 160 ,. 29 P 0 K E 4 9161 ... 0 
1 7 4 t;i F’ Ol< E 4 91 64 2 2 9 s P 0 K E4 91 6 5 0 
1 750 P0KE491770 :: P0KE491680 
1760 R E M W. * W- V l-l RIA B i... E S 4 C 0 N S T fi H T S # * * 


:!. .7:30 

FQF 

;; T 

=:0TO2 

4 

:F 

: 'OKE 

34-1 O NEXT I 


1 8 0 0 

POi- 

::E 

34-24 , 

1 

cr 

pok: 

ES+5,. 31 


i s .1. 0 

POF 

::e 

1 

i:n 





1 820 

REF 

1 

•H 4: S 

E 

1" 

up 

SPRITES 0 


1330 

F'Oi- 

;:e 

2:940,. 

1 

•T.i 

POK 

22041 1 4 


1840 

POI- 

:;e 

VC 4-2 1 


o 

REM 

ENABLE O 


;[ 850 

POI- 

::e 

VC •+■ 35 


1 

REN 

SPRITE 0 COL.. 

OR 

1860 

POF 

:e 

VC 4-40 


0 

PEN 

SPRITE 1 COL. 

OR 

1870 

POI- 

:e 

VC+ 2 9 


3 

REN 

EXPAND X SAFI 

ITE 

1880 

POI- 

a- 

VC+ 22 

r 

1 

i REM 

EXPAND V SPF 

ITE 


10; 90 F- 01C E 4 9 16 9 , X1 ;; F : ' O l< E 4 9:!. 7 3 , V1 
19 00 P O !< E 4- 916 9, X1 ; P 0 K E491 73... V1 
1910 PR I NTCHR:I : < 1.47 ■ 

1920 P 0 K E 5 328 0 9 ;; F : ' 0 K E5 3 281 9 
193 0 P R I H1" C FI R ■$ C 1 7 > C H19 $ 1 7 > 

194-0 PRINT" 

1950 PRINT" 

I960 PRINT" 

1970 PRINT" 

1930 PRINT" 

1990 PRINT" 

2000 PRINT" 

2010 PRINT" 

2020 PR’ I NTCHRt < 1 7 > CHRt C 17 > CHRT < 17 > CHRt < 5 > 

2038 PR:CNTTRB<9> " --PRESS 14 KEV TO PLRV." 

2040 GET AT : 1FAT-" " THEN2040 
2050 PRINTCHET <147 > 

2060 F'R I HTCHRT < 147) 

2070 P 01< E5 3280,9 s P 0 K E 5 3 2:81 14 
2080 F r 0 RI = 0 T040G : P U K E1624+1,16 0 
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2 @ 9 0 l :: ' 0 K E 558 96 + .1 . r 6 ; N E.' X 1" 

2 1 0 0 X 2=5 0 ; V 2=. 5 0 sD X=: 1 D V 1 

2 1 1 0 P 01< E204 .1 , 1 4 ; P 0 K E VC -+■ 4 0 ,0 
2 1 Si: 0 P 0 K E VC ■+• 2 , X 2 P 0 !< E V C ■+• 2S ' 2 
2 .1. 30 F :: 'CHCEVCh-2.1. , 3 
2140 REM LOOF' 

2 1 50 X 1 =PEEK C 49.1. 69 > ; V 1 =PEEK ’ 491 78: > 

2 1 6 0 F - P El EK 1 4 91 7' 7 > u P OI: I E 4 9 1 7 7, 0 

2170 IFRNCK 1 > O, 05THEMPOKEVC-I-23,. 1 POKE V C+291 

2110 P R IN T C H R t < 1 9 > C FI R f '5 > ' 1 S C i j F: E ;; '' 8 E 

2190 j F'SEiXH IT HEIN FI I := SEE 

2 200 P FI I H T C H R f i 1 9 "■ T fl B < 2 5 ' 1 FI IG H : 11 HI 

22 1 0 I FIEND i 1 > <„ 05THENPOI<EVC+23,3 ;; POKEVC+29 3 
2220 IFFO1THEN:;;2200 

2238 F : '0KES+412.9 :: POKES+ 1 ,26 s POFIEiiS 1 40 
2240 F* O FI I-11T02 i NEXT : PDF Es + 4,0 s B*B + 1 
2 2 5 0 I i ::r B ~ 500T14 E112 4 30 
2260 POKE3VC + © , X 1 ;; POKEiVC + 1 y ;j. 

2270: POKE VC+2 , X 2 : POKEVC+S , V 2 

2230 X2= X2-i-DX ; I FX2>240THEHX2*240 :: DX:~--DX 

2290 IFX2<50TFIEHX2=50 ::DX—--D.X 

2 30 0 V 2 n:r V 2 •+• D V I F V 2 i >200 T F I E N V 2 = 2 0 0 ;; D y == D 

2 3 10 I F V 2 <i 5 0 T H E N V 2 ,= 5 0 :: D V ^.D y 

2320 I FEND F 1 > < „ 1 TH6NDX=:4:iFI+ 1 : I FDX> 1GTI4FI4;4X = 1 
2330 I FEND '1 1 > X „ 1 THENDV==D V-i-1 : I FDV> 1 0 THE:.ND't'-~ .1. 

2340 I FF-- 1 RHDPEEK F VC+301 Fi N D 2 7M- H El N FI T =: I-I T’4 j 

2350 IF’ 14 T = 3 8 T' 14 E H 2 8:8 0 

2360 GOT '02 1 50 

2370 PEN VTV GOT G FI FI ! XTX 

2380 P 0 K E 2 0 4 1 , 1 5 :: P 0 K E S + 4 1 2 9 :: 14 T =- 0 

2 3 F :| 10 O K E V G + 4 0 £: ;; S E 0 3 E+7 l 

2400 P O l< El 3 + 1,7 ! F : ' 0 K E 8 , r 9 3 :: F' 0 K E V C + 2 j. 2 

24 10 R 1014FF.1. TO 1 000 i: NEXT :: F4JKES+4 , @ 

2420 POKE VC +2 1 , r i :: F '~0 ; GOT 02 1 00 

2430 REM VTV SORRV! OUT OF 14MMil IS 

2440 PR IHTCHEf F .1. 9 > CFIEf 'I 1 . 7 > CI4ET < 1 7 > CM I if < 1 7 > 

245 0 F' R IN T T Fl B < 4 > ' 1 3 G F : ' R V I „ V O U 1-1R V E FI IJ N i j U T 0 F R M M 0 11 
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2460 SE:-0 s B--0 s FQRK= 1TO2000 t NEXT 
2 4 7 0 P O !< E V C+21 0 
2480 GOTO .1.910 
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Spider Hunt 



In ‘spider hunt' you must destroy as many radioactive spiders as you can, using your laser. Just 
guide your sight over the spider and press the fire button to watch it turn into an array of colors 
before it finally disolves into nothingness. As the sight homes in the spider may start to get itchy 
feet, so make sure that you fire quickly once you have one at your mercy! ! ! 
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136113 PRINT " iOC'CCOC 
1370 HENIK 

1 3 80 F 0 R I = 8 T O 3 9 s F r 0 K E 5 Si 3 3 6 ■+■ I , 5 
1330 POKE 1 064+1 160 : NEXT I 
1 400 FOP' I :=0TO39 : P0KE56256 + I 5 
14 18 POKE 1984+ 1 1 60 :: NEXT I 
1420 FOR I “= 0T022T408TEF'413 
:i. 4 30 P 0 K E 5 5 37' 6 + I 5 : P O K E1 10 4 •+■ I 16 O 
1 44 0 P 01< E: 55 4 1 Si -I-1 5 t P 0 K E 1 1 4 3 + I 1 6 0 
1450 NEXT! 

14 68 F' 0 K E V C+21. 3 s R E M 8 P E1T E E N El B L E 
1 470 POKEVC+33 r 1 s POI<EVC-.~40 , ? ; REM COLOR 
1 480 0X=4 :: D V-- 4 :: G 0 S U B 1 6 6 k 3 
1490 L. I =50 

1500 RE!M TVT MFlIN LOOP' 

1 5 1 0 PX::r.PEEP F 43 1 69 3 :: pV :=; pEEK F 43 1 73 > 

1 52 0 P 0 K E V C+0 , P P 0 i< E V C + 1 , F : ' V 
1 5 3 0 N P = N F' +1 ;; F = PE E !< •: 4 31 7 7 3 
1 5-4 O I F Wp > L I T H H N(3 0 8 U B 1 6 6 f3 
1 550 POKEVC + 2 TX ; P0KE:VC + 3 ... TV 
1 '560 F'OKEVC + 30 8 «POKE43 1 77 ,0 
1 570 I FF~ 1 RNOF'EEK F VC+30 > FIND 1 st-1 THEN 1 7 10 
15.80 IFED^3THE:N1850 

1 530 PR I NTC HRF 1 3 3 CHRT 5 > ’ 1 8CORE ;; '' SE 
1608 || r 8E>HITHENHI^SE 
1610 PRINTCHR-4-t: 1 3 3 TfTBF 25 > "HIGH n "HI 
1 620 TX:= TX+DX :: I FTX T40ORTX>2gi0THENOX==-DX 
16 30 T V .91V* + D3r 1 IF T ' ■: 6 2 Q R T N' > 21 3 T H E i ID V+. - [3 V 
1 640 GOTO 1 '5 1 0 

1650 REM VTV ME FI P05 OF 7 PI J HG 
1 6 6 O T X ] N T F R H D F T IF' ■■¥ 2 1 0 ■+ 4 O ) 

1 67 0 1" V := I N T F R j-! 13 F T I > T 1 5 1 +■ 6 2 > 

1630 POKEV0-I-2... TX :: POKEVC + 3 , TV 

1 613 0 NP 0 ;; L I L 1 1 T F L. 1 < 1 T H E11 El D ;= ill D 1 L 1 ~ 50 

1700 RETURN 

1 7 1 0 REM TW GOT (F HEM TW 
1 72 0 P D I F E V G + 2 1 2 S E S 111 +-1 N T F 5 0 0,' L I :■ ■+■ M F' 
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1736 FORT:- i 20TO1 STEF'-7’ :i POKE VC+40 , T 
1740 POKE VC+ 29 0 

1 750 F'OKES-i 4 33 : POKES+6 , T P0KE8+ 1 T+ 1 27 

1 760 POKES+18 j. 33 POKES+ 1 5 T + 7 :: POKES ■+ 1 4 , T+ 1 27 

1770 POKE VC+2 92 

178 0 H E ;:•••: T :: P 01< E V C+ 21 , 1 

1790 P 0 !< E S + 4,0 :: P 0 K E S + 18,0 

3.300 F 0 R K =: 1T01000 •. H E K T 

1810 GO SUE::!1860 

1820 P 0 K E49177., 0 s P 0 KE V C+4 07 
1830 P 0 K E V C •+■ 213 2 N P=0 
1848 GOTO 1510 

1850 REM SORRV! END GAME *** 

1 860 F'R I HTCHR# < 1 9 > CURT < 1 7 > CURT < 1 7 > CHRT < 1 7 > 

1878 PRINTTAB<14>"-GAME OVER."CURT<17> 

1880 F'R' I NT TAB C 7 > " - PRESS A KEV TO PLAV flORIH-" 

1 890 GET A ■$ s I FHT=:" " THENP0KE646I NT < RHO < TI > * 15 > s GOTO 1860 


1300 F'R I NTCHE# < 147 ) : POKEVC +• 21 ,0 
1910 N P=0:E0=0:SE=8 
1920 PRINT CURT<147> : GOTO1330 
1930 REN *** TITLE PAGE 
1940 PR I N'T'CHRT < 30 > 

1958 PR I NT TAB 7 > " r —------.-.i 

I960 F :, R I NT TAB < 7 > ” | ••• •• • •• ••• ®« | 

1970 PR I NTT AES < 7 > " |« • • • • « O • | 

1980 PR I NT TAB < 7 > " | •• ## ##### «# | 

1990 FT? I NT TAB 7 F " i • • • • • • tt ®i 

20010 PR I NTTFlB< 7 > " !••» « • •• e m\ 

2010 PR I HTTflB < 7 " l-------1 
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r —.. 
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1 A A 
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A AA 
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PRINTTAB- 

1 0 > " 

| A A 
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• A 
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i-'lRf-i 

PRINTTAB- 

1 0 > " 

!_ 

_ 

_ 

_ _ ... 

___ 
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1 04 
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2 

350 

DATA 13, 2 

22... 1 7 
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2 
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17 

i::- 
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2 
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DATA 192 , 

144,1 

O 

,189,4,192,157, 

17 

2! 

398 

DAT A192 

1 89... 5 


192 , j. 57,1 8,1 92 , 
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2 76 r 
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, .1.76 
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4 1 0 
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4 ,. 17,. 
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, 1 92 
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74,17 
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, 1 32 

2' 
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DATA200 , 

2 1 - c'.. 


2,224,4,240,3,7 

6 .«■ y 1 
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0 0 0 0 
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2530 REM *.m SPRITE 1 <THING) *** 

2540 DRTR000 , 00 0 0 , 0 0 _ r 249? 1 23 
2 5 510 01=1 T Fl 102246 r 9 6 , 129216 , 16,15,127 
2 51 € 3 Hi H T Fl 051 ,2 3 G , 1.92 199,190,48,38, 24 ? 
2570 DATH12899,252,■ 96130,1001 615 
2 313 0 D R T fl 1 1 1 , 04 82 40 ,.192, 6 5 ... 1 8 4 ,■ 3 2, 1 3 0 
2590 D Fl T Fl 4,16, 128, 3 1 6 00 ,00 0,0 0 0 
2600 0Fl 7 l=i 00 ,0 f'i 
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Dippy Dappy 



" ^ r ' t > 

r -L_ "if .3 1. lr *. 


"O.K. you chuck the apples over Dappy, and I’ll catch them!'. 

"Deirr, right boss .. 

Well he did say chuck them over didn’t he? And he did tell me where to throw them, didn't he? 

The story so far: Dappy, at the request of his boss Midget Malone, has broken into Farmer 
Giles’s orchard, intent on stealing his nice rosy apples. Dappy. however, has never had all that 
much schooling and was never told exactly what an apple looked like. So you can understand it 
was not his fault when he started thowing eggs over! 

Where did he get the eggs front? 1 hear you ask ... well this is only a fairy story, after all! 

With the aid of a joystick, try and manouevre Malone underneath falling eggs and catch as 
many as you can. Drop too many and the game ends! 

Have a smashing time playing 'Dippy Dappy’. 
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50 

PR IHTTRB 

l' 

ci C> 

> c 

HRT < 

•”> O ‘‘i 11 

"CHRT 


0 > “ 


" J! 

i 

5 

60 

PRINTCHR 

T 

2! 

'i 

11 II !—• 

HRT < 

1 4 3 > " 

" c 

HRT ■: 

■ ~i 

0 > ” 

3. 

izr 

70 

PR INT " 

II 

CH 

ET 

F .1. 43 

•j 11 II 

CHRT F 3 

0 > 

1! 1 

> a 


1 

r.:r 

-.J 

80 

PR INTCHR 

T 

F 1 

4 9 

i" » 







1 

b 

90 

REN POKE 

5 

32 

65 

, PEE 

l< F 53 

26bU R 

16 




1 

s 

00 

POKEVC+2 

1 


:i R 

:EM E 

NRBL. 

E SPIN I 

TE 

:E> 0 , 

. i 

ii! 

1 

b 

3 0 

pi .4=: € FSd 1 

3 

2 5 

PC 

(■R E’ 7 8 

3 1 W 

! SVS65 

i::r”;. 

0 



1 

6 

20 

PRINTCHR 

■$ 

< 5 

> c 

HRT F 

18 > " 

r -j 

11 




1 

& 

30 

P0KE732 ,, 

o 

2 5 

PO 

KE7S 

1 1 3. 

:8VS65 

cr •-;» 

0 



1 

& 

40 

PR I NTCI-IR 

t 

F 5 

> c 

HRT F 

18 > " 

IKEEP I 

ii 




1 

s 

50 

POKE 7 82 .r 


•• 

PC 

HE 78 

1 , 3.2 

s SVSS5 

cr 

0 



1 

6 

;60 

PRINTCHR 


F 5 

> c 

HRT F 

18 > " 

I OUT ! | 

n 




i 

b 

70 

P0KE782 


2 ! u 

PC 

KE 78 

1 13 

5 RV865 

52 

0 



i 

S 

18 0 

PRINTCHR 

T 

F 5 

> c 

HRT F 

1 8 > " 

1-1 

"C 

HRT' 

i . 1 . 

46 > 

1 

b 

90 

ft;: I NTCHR 

:■$ 

F 1 

9 j 

CHRT 

< 158 

>" SCOR 

E : 

ll 



l 


’00 

PR INTCHR 

:T 

7 1 

9 > 

CI-IRT 

F 1 58 

> TAB F 1 

7 > 

"HI L 

3H 

i SCO 

1 

»■’ 

' 1 0 

D= : R : nnp| i 

IB 

13 

3C 

i : GOS 

UB13 

70 





l 


‘20 

REM W* 

MR I 

H 

LOOP 

TTT 
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1730 PR INTCHR* <; 19 > CFIRT < 5 > TAB < 8 > ; SE ; " " 

1740 I FSE>H IT14ENHI =SE 
1750 PRINTOHRT<13 >CHRT C 5>TAB<30>;HI 
1760 POKEVC+0 

1 770 I ! r DR--0"I"HE.'HA/ = I NT < RND < TI > *210+40 > 

1780 I F r DR---0THENF=F -1 :1FF<1 THENF;* 1 
1 730 R^r N-D 5 :i:FX<300RX>246THEND~—D 
1800 POKEVC+39, INT CRND<TI>*2+4> 

1810 P 01< E V C+3 Ei, 0 

1820 PX=PEEI< <49169> sPV=PEEK< 491 73 > 

11330 IFPEEK < VC+30 > AND 22 T H E N G 0 S U B i 970 
1840 IFF = 1 THENDRss 1 
1850 I FOR-.-1THENPOKEVC+21 7 
1860 I FDR= 1 THEN A 1 V=A V+6+1 NT < SE/100 > 

1370 I FAV> 190 THE I-I GO SUE: 1930 
1880 POKE VC+2PX s POKE VC+3PV 
1896 P 0 K E V C+4 r A N : P 0 K E V C+5... A V 
1900 IF C A 1T H E N 8 E « S E +10 : C A=0 
1910 GOTO 1730 

1920 REM *** DROP ANOTHER! *** 

193© AV=95 POKE VC 4-21 , 3 :: DR=0 
1 940 I FCA=*0THENM I =M I + 1 :i IFM I >5THEN20©0 
1950 RETURN 

I960 REM *** CAUGHT! *** 

1970 CA= 1 :AV=9 5 : DR =-0 
1980 POKE VC+21 3 s F=2 
1998 RETURN 

2008 REM *** SORRY! DROPPED TOO MANY *** 

2010 P0KE78120 s P0KE782,. 6 : SVS65528 

2820 F'RIMTCHRf '35> "SORRY DROPPED ONE TOO MANY" 

2030 POKE781 22 :P0KE782,. 6 s SYS65520 

2040 PRINTCHR:t:<5> "PRESS A KEY TO PLAY AGAIN" 

2050 GETA#:IFA$=""THEN2O50 

2060 SE:=0 sDR=0 : F=5 : AV--85 :CA=© sMI =0 

2070 GOTO1370 

2080 DATA 120,17320 , r 3 ,■ 14129192,17321 


Listing continued next page 
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2096 DAT A3,141 ,38 . r 192... 169,7 1 ... 141 203 
2108 DAT Ft 169, 1 92 , :l. 4 .1. , 2 i , 3S8 ,96 , 1 28 , 173 
2 1 1 8 091029...1 92,1 4 :i. 283,1 7338,1 92 r 1 4 1 
212 0 D Fl T Fl 21 ,3 83 ,9 6 ,17 3 ,27192 , 2O 5 ... 1 6 
21 3 13 IJ Fi T Fl 192 , 240 37 6 ., 6 5, 1 9 3 ,, 169 2 55 
214 8 [j 9 T Fl 141 ,27,1 92,1628,1688,1S r 5... 2: 

21150 DATA2201 41 28,1 92169224153,2 
2.1.6 0 D R T A228,1 85 , 8,2287 2,173* 28 ,■ 19 2 
2 170 D8TFI153.„ 2 ... 228189,8, 1 92221 21 , 192 


2 1 

80 

DAT ft 1 

99 

r 

3 

,. i 

9 

2 r 

2 

tZ' •••*! 
.„t .“t 

,. 2 : 

2 

,. 19 


1 

4 

4 ,. 

i 

y 



21 

90 

DATA 1 

3 9 


s 

i 

9 

>• 

1 

57 

2 

i 

,. 19 

zi r 

1 

Z' 

3 

3 

_r 

1 

3 2 

,1.'. 2 

00 

DAT Fl 1 

nr~:< 


2 

Cl r 

i 

!9 2 


18 

4... 


4... 7 




... i 

6 

Cl' 



22 

1 0 

DATA 1 

3 2 

r 

i 

04 


74 


r ci 

,. 1 

»■* 

S > 1 

-*•' T 

2 

2 


2 

1 




20 

DATA 1 

92 

r 

i 

3 9 


2: l 

r 

19 

2 r 

2 

81 . 

c:r 

cl 

_i 


2 0 

0 

r 

3 



30 

DATA2 

2 3 

r 

cl. 

.»• 

i 

9 2 


18 

9 

2 

1... 1 



cd 

~ -i 
4. 

.r 

1 

2 



4 8 

DATA .1. 

•-j Z ‘ 

r 

1 

:::«9 


2 cd 


1 9 

cd r 


cr 

1 3 


1 

32 


1 

4 

4 

2 2 

50 

DATA 1 

8 r 

1 

8 

3 

i 

, :d r 

1 

92 

, 1 

5 

7 y 

1 ,. 

i 

3 

2 

1 

y 

3 


2 

6 0 

DATA 1 

r 

1 

9 

“> 

i 

cr~? 

i 


2 2 

1 

9 

2 ,1 

34 

r 

J7 

*“V .»• 

r 



76 

2 2 

70 

DATA2 

97 

r 

i 

92 


184 

r T 

4, 

r’ 

2 r 1 

7 6 

r 

y 

c: 


4 

.r- 

21 

2 cl 

80 

DATA 1 

9 2 

r 

3 

38 



2 

54 


cd 

,r 1 9 

— 

1 

w 

3 

0 

r 

1 

J. 

3 2 

2 2 

90 

DA 1 ft 2 

21 

r 

i 

9 

i 

9 2 


18 

Q r 

i 

... 1 9 


2 

5 

y .i- 

i 

£ 



“i 

00 

DATA 1 

y 2 

r 

i 

44 


1 8 


1 8 

9 

0 

,. 1 9 

cd r 

i 

5 

r .i- 

i 

? 



2 

1 8 

DA 1 A 1 

9 2 


i 

3:9 


1 , 

i 

9 2 

, 1 

i::r 

7 , 1 

y r 

i 

9 

C.‘! r 

i 

0 

4 



28 

DATA? 

4 ,. 

? 

2 

r i 

6 

, 1 

r 

19 

•~J 

1 

84 ,. 

74 

r 

'|7 

tZ.'. r 

i 

i' 

6 



30 

DATA 1 

•“» 

cl 

2 

2 r 

i 

“7 

1 

.9 2 

, 1 

3 

91 

!*' r 

1 

9 

2 .»• 


0 

i 



40 

DAT 14 2 

cr c:r 
•™ ! 

r 

2 

38 


y .<• 

2 

2 2 

,. :l. 

'n« 

. i 9 

2 ,. 

1 

8 

9 

1 

? 




58 

DATA 1 

92 


2 

21 

r 

4 

i 

92 

r 1 

8 

9 -4 1 

8 . 

1 

9 


c: 

5 

o 

cr 

r 


60 

DATA 1. 

33 

r 

i 

44 


18 


1 8 

3 

4 

, 19 

cd r 

1 

inr 

r .»• 

i 

"7 




70 

DATA 1 

9 2; 

r 

i 

39 


5 

i 

9 2 

, .1. 

r-j 

7 , 1 

3 

1 

3 

y r 

i 

0 

4 



30 

DATA? 

4 , 

"7 

2 


€ 

, 4 

6 

r 1 

.97 


1 84 

r r 

4 


I*' 


1 

.... 

f;9 

22 

90 

DAT At 



4 

, i 

7 

,. 1 

5 

2 r 

28 

8 

8 r 

2'E 

4 


it 


l 

3 

y 

24 

00 

DATA 1. 

84 


7 

4 

i 

7 6 


c:r 

16 

9 

,. 1 ,. 

It 



25 

_r 

•} 

9 

y. 

24 

1 0 

DAT AS' 

001 



2 


2 y 


r 2 

24 


4 r 2 

40 



7 

i:: 


9 

i 

24 

20 

DATA 1 

3 2 


2 

::« o 


y 7 


19 

cd 

i 

0i3 , 



1 

9 2 





2 4 

30 

DAT At 

59 

Q 

4 

R 

e: 


c 

HE. 

Cl< 

3 

DM 4 










48 

re::m + 

4 4 


3 

PR 

i 

TIE 


0 

< i: 

AF'F'V 

) 

4 

i+ 

* 





24 

50 

DATA 1 

t -d r 

i 


6 r 

1 

52 


98 

,. i 


7 

cr 

r 

1 

7 


5 

nr 
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Fun Match 



Fun Match is another short program in which you have a set of three words that can be mixed up 
to form other words. Sometimes you get quite funny results. 

The DATA statements can be changed to words of your own choice. The words we have used 
are just an example and you are not limited to ten sets of words. This program can be used as a 
basis for a much larger program, i.e. Anagrams or Hangman. 
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1 £ 

100 

REM # 

SET 

UP RRRF 

It'S 


1C 

1 0 

DI MR! 

< 18 > ... S 

i : < 10 > , T il 

C .1. G 

J 

i e 

20 

FOR I = 

1T 010 




1C 

130 

RE RDF 

* < I > DC 

* I > , 7 $ ■: 

I > 


1 c 

40 

HEFT ] 





1C 

50 

REM 

MR I 

H PROGRF 

M L 

0 0 P : M # H 

1C 

60 

PR I HI 

CHRf < 1 

47 > 



1 G 

78 

HR: II- 

T < R NO < 

TI > :f: 10-i-1 



16 

80 

N2 = I !'•• 

TCRHDC 

TI > * 1 04- 1 

y 


it 

90 

N3== I 1'- 

T C PHD <: 

TI > * 104-1 

y 


1 i 

00 

PR .1 HI 

"THE " 

;FT < N 1>; 



1.1 

1 0 

PR I HI 

" " ;S:r 

<N2>?" " 

; T $ 

< N3> 

:i. 1 

20 

PR I NT 

: PR I N'T 

SPRINT 



1 :i. 

30 

PR 1 NT 

"PRESS 

fl REV" 



11 

48 

GET A* 

: IFfl*= 

"" THEN 11 

40 


11. 

50 

GOTO 1 

060 




.11 

60 

REM H- 

m DRT 

R FOR WORDS 


11 

70 

DATFl " 

BIG " , " 

BROWN " , " 

DOG 

II 

11 

80 

DATA" 

SMALL " 

, "ROUND" 

"B 

ALL " 

11 

90 

DRTFl " 

FUN N't' " 

.- " SMI L. ING " 

"CLOWN" 

12 

00 

DfiTFl " 

JOL.LV " 

"FRT" " 

MRN 

II 

12 

10 

DRTFl " 

DARK " . 

"BLUE", " 

SER 

II 

1 2 

20 

DRTFl" 

SI-IR I VE 

LLED""G 

REE 

4","BER 

12 

301 

DRTfl " 

LuNELV 

" , "RNT" 

"EATER" 

12 

40 

DRTR " 

BRIGHT 

‘ " 't'OUNG 

II 1! 

EHECUT I 

12 

50 

DRTfl " 

FAST " 

'SALOON" 

"C 

RR" 

12 

60 

DRTR " 

SO GOV " 

" PINK " , 

"SO 

:.!<" 
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Guess my number 



Starting off with a simple program is a good idea, and with 'Guess my number not only can you 
play it. but you can also learn about the use of variables and IF ... THEN statements. 

The idea of the game is that the computer picks a random number, and you have to guess it. 
The range of the number can be anywhere between 0 and 100. Of course, you can change this to 
your own requirements if you wish. Each time you give a guess the Computer responds with 
either ‘Too high' or 'Too low', in which case your next guess will change accordingly. 

When you have finally guessed the correct number, the Computer will tell you how many 
guesses you have taken. 

The actual listing is barely a screen full, and proves that you don't need to use a lot of memory 
to do something worthwhile. 
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/; | 

100*3 (rEI 1 - *# ■ *. -0IJES':3 MV MUMBER 
101 *3 F'R" j H"iTCI"|R^' 01 GG=-0 ■#> 

10V0 F'RIhlTSH^tS> "GUESS MV NUMBER ►^TTMFEtEn 7 - 

1 030 :••••■:::::: I N T < END C 1 > * 1 00 > + 1 
1040 F’G't -fV ! S ;• .1 ,A, >’/ ■ 

105(3 PR I NT-^ff^TCttffang S.1:> " TVPE IN GUESS > " • 
1060 1 NR%tEE : .i4G:i I NT < ‘...’RL- < G4? 3 > y - - - : V : 

W0 |E/ljO^fHENf’R I NIG-PE l i NT-s-EE IP ffiGHR* E1-55U " OUES 

IMASr 1 Et^^fHE^TNf f-PRINT :fPBTMTC RR:$-<* GUE | 
H J( *H i!r —4 vRV' HSfetfeN n GG-GGh- 1 j 

10^:3 IFG4-4fHEN^RINT s-F'RIMTGHfWwiGfinp ,. yni I Gl 
INTgOGGOES" J 

S’f HENW5HfeP»PR' ! ?NT "IHNCN !- iEk GiV * < y, 4! ■ 

' 1 11 &’ XFG .:' S’i I 'IE!■ Il±s=s* I'’ - ’ 

t 1.S0 (gS&SL-s i: m "VUMlI^To " N " THEi'-i '$&£&&&* ' 

.1 14@ | E’R^JffCHftsK 1 ''I r T t;HRf : < 154 - 
1 150 | r t^l tS ^G SG0,4 4 ;ENO ^ ■ 


iS'rhsg 


_ f , ) 

B TOO 
TOO 
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Bug Bovver 



For (hose amongst us who suffer from terminal termite trouble or are driven insane by insects, this 
game lets them get their own back. 

When the program is RUN the boot weaves menacingly back and forth across the screen. To 
drop the boot press the SPACE bar. Listen to the soggy splattering sound with just a hint of crunch 
as the bug gets its come-uppance! 
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1. 000 
1 0 1 0 
1 020 
1 000 
1040 
1056 
1 000 
1 070 
1 050 
1 090 
1 1 00 
1 1 1 0 
1120 
1 130 
l :i. 40 
1 150 
11 60 
1 170 
1 . 1 . 80 
1 190 
1200 
1210 
1220 
1 230 
1 240 
1 250 
1260 
1 270 
1 280 
1290 
1300 
1 310 
1 320 
1330 
1 348 
1 350 


REM BUG BOWER 43:* 


F'F 

I NT 

CI4RT < 

1 4 

»' .- 1 



PC 

EE'.: 

3280 

0 :: 

F'Oee: 

5328 1 

... 0 

GC 

SUE 

1726 





F : 'F 

I NT 

CURT < 

15 

.* 



TI 

" 

0000C 

0 " 




EC 

R I 

0TO6S 

;; F 

EFlDJ 

s POKE 

1+832 , J NE3T 

PC 

R1 4 

0TO62 

:: F: 

EflDJ 

:: POKE 

1 +896 , ,J HE3T 

FC 

R I =: 

0TO62 

:R 

EBD.J 

F'OEE 

I+960,JsHE31 

PO 

EE 2 

040.,. 1 

3 :: 

POKE 

2041 ,. 

14 


POKEVC+23 6 F'OKEVC+296 
! :: '0l<EVC+39 ...9 
POKEVC+40,5 
POKEVC+41,5 

PQKEVC+37,2 : POKEVC+38 , 7' 

BD=8 s DV=:8 :BV=60 :POKEVC+l 33V 
G D = 4 : F’ 0 K E V C+32 0 0 
BK= I HI" < RI-ID < 1 > * 140 -i- 56 > 

GK:= I HI >: RI-ID < .1. ) * 1 1 5+66 ) 

R E M * * * 13 LI G B 0 V V El R * * * 

S=54 2 7 2 : D=.1 S O=3 8 

POKES+24,14 

P O K E S+531 : P 0 K E S+62 4 0 

P0KE781 ... 22 : P0KE7820 ;; SV865520 

FOR 1 = 1 TO40 s PR I NT " m " i ;; HE HI 

PR I HTCHRT < 1 9 > " SCORE s " SRC C 21 > " H I Gl-I ; " 

PR I NTCHF3F C 1 9 > ; FOR I = 1 TO 1 20 

F : 'R 1 i-ITCHR* ■: 13 > " " ; 3-IE2 T 

POKEVC+21,3 

Rfc:.M MFlIN LOOP s+if+i# 

BK::-B2+BD : IFBX<550RB^>246THEHBD=--BD 
F'OKES + 4 , r 0 5 POKE VC+'30,0 
POKE VCBH : POKE VC+1 E: 4-' 

G'-IG3+GD s IFG3<450RG3>240THEHGD=-GIJ 
POKE VC+2G3 
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.1.730 

PF- I NT 

' C f T R 

a f j 

. 7FCHRT 

" l' ! “7 '-j s ' 

'.j :f F ;j!0 

1 743 

PR I H"i 

'TAB 

F 8 / 

1 rs 

...... 

... j j | j } . 

1 750 

FT? I N'T' 

THE 

: 3 " 

” F-i , I 1 

F- 

i |Sj i •! i- ! •••'' 

. 1 . '760 

PR I NT 

THE: 

F 3 

n L..-' ! 


■' 1 .i j 1 1 . 

! i . 1 

1 770 

PR I!' IT 

CHR 

: :■!" ( 

7 CHPT 

: f :i. ?' 1 C 

THRT f .1 7?' 

1 7 80 

PR I NT 

TAD 

( j 

’■PRESF 

; ft Kfi 

::v TO PLF3V 

1 790 

GI 2 T 8 T 

s IF 

EM-H 

" THE; E 

1 i '133(0 


1 800 

PR I NT 

CHE' 

3 F 1 

4 7 > .-RE 

T URN 


18:!. ti 

RETT :f: 

T M 

SQFi 

■R;V! OL, 

IT" OF" 

1 [ {-- 11 “ 4* •*{»• '-fcT 

1 820 

POKE 3 

.. 

!0 




1836 

PR :t N T 

C' F i R 

■f F 1 

F-TCHPT 

f :i. ?' ;■ c 

HP: 5 F 1 ■ i !■ iR± 

1848 

PRINT 

CHR 

1 




1850 

PR I NT 

THE? 

F FT > 

-8 FT RR 

S - 1 ! oi. 

IT OF TIME ■■■■'’ 

1880 

F'R I NT 

C HR 

T F 3. 

7 CHR* 

F 1 T c 

:HR ■$ F 1 77 

1 870 

F : 'R I NT 

'! FT 13 

i. > 

"PRESS 

ft K E; 

y t o pi .h'f (4 

1 880 

GE3TT3T 

* IF- 

DT--:r. 

""THEN 

17:83 


1890 

TI:Tr n 

000001 -:;! 

: H 



1 9 100 

SC =-*0 

PR I 

NT C 

FTP: t F 1 4 

’0 > «*3C 

! T FT j. FT 9i0 

19110 

REM * 

13 

8 PR 

;t TE FT 

F E 00 7 

I ijjfi T|s- 

1 920 

d Fit hQ 

0 r 

0 , :t. 

2’ 4 r 0 0 

, 3:32 

:48.8 ,GS ..248 

1 930 

DATA0 

... 3 

a 

0 ,. 0 ,3 1 

, 1 92 

0 0; 1 ;7 4 FT . 0 

1 940 

DAT A 2 

i . i 

32. 

0 , 3 :l. , 2 

4 0 FT , 

i n ; „ i 9 n j 

1950 

DATA2 

43 , 

0 .. j 

5 ,. 228, 

0 3 j. 

F'5 ,.:| , 0 , 7 (H I 

1 960 

DAT R 1 : 

7 6 i 

8 " •“> 

255 i ;3 

4, 0 .3 

t~, -j -. -7 

1 970 

DAT A 2 

413 , 

1 88 

... :i, 2 ? , 2 

55 „ 0 

1 2 7 - 1 . 47 , 954 

1 980 

DAT A .1, 

“M’7 

1 28 

, 254 , r 0 

, 0 , U 


19:310 

REM 4 

¥ T : 

3 PR 

I TE :i. 

F B U F: F 

;ljl r jtllj 

2000 

DATA0 

, 0 , 1 

0 , 0 

i. 24 , 0 

r 0 2'5 

4 , e , ! , ;L 3;; , FT 

,20 ;|, 0 

D FT TFT 3 

, 1 7 ;l 

12 

8 ... 3 : l , 

1.2:8 ,. 3 

S 9 ,1 9 2 - ? r 1 

2020 

DMT Al: 

■■4 c : ' 

72 

55 1 92 

3. , 1 9 

9 ft , c.T , 1 24 0 

2030 

DAT A0 

, 10: 

30 

■ FI , i 08 

|Tj j"-j 

103 ,0 3 239 

2 040 

DATA 1: 


0 , P 0 

0 0 0 

0 fill 

0 . i;0 , 0 0 , 0 r 0 

2050 

DA T FT 10 

,, 0 , i 

0 „ 0 

■ 0 



2060 

REM m 

9 

3PR 

I TE. 2 

F 3 pL FT 

{’ ’> -iff: •»{»: 

2070 

DATA0 

0 , 

0 „ 0 

, 0 0 * 0 

r 0 0 

[J;! ,. Q r Cl ( . (i _ P; . >;:•! 

2030 

DAT AG 

, 0 , 

0,0 

0 „ 0 0 

, 0 0 , 

0 v i-;j 0 r i'll r H j”! 
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2 0 90 fj Pi T Pi 0 , 0 r 0 ,. 7,2 55 2 2 4 , 6 2 ,■ S' 0,1 2 4 .■ 1 2 7 
2 100 DfiTft2'552'54 0... .1.95... 07 r 19b... 224 ., 0 0 i 
211 0 DRTR0 0... 0 ,. 0 ,. 0 ,0 , Li... 0 ,■ 0,. 0 ,. 2i... @., 0 





Attack of the Tomato 



Your city is under attack from fertilizer-crazed tomatoes. These vituperative vegetables are deadly! 
As commander of a front-line outpost your mission: 

TURN THOSE TOMATOES TO RATATOU1LLE! ! 


Let more than five past and your city becomes KETCHUP. 


152 GAMES LISTINGS 


.1. 00 0 F' R 1N T i_: H R f < 1 4 7 "> 

1 0 %0 P0KE.5328 1 , Li ;; POKE532800 


1 0120 PR I N'TTFlB <45 

FT-IRT F28 ;> " S||F"W! 

2P"’ "P8I 

.lb!! 

if 'pi a 

W* 1 .JWHAt., 1 JF" 

1030 PRINTTElEK4> 

" ;;f"1i|i | "' i i|gr l Pil r 21 

1 'Hi r .a i 

"Ml 

i siP'Tiir^ssr'Pi 

II 'I WJT" 

1840 PR 11'IT rFIEiT 4 0 

"21 1 .5! 1 

Si II 

.ii;! 

i in a m 

Ill" 

1050 F'P I NTTRB < 4 

" a m a f! 21 

mi a ■ 


a i 21 ® 

■ a inn," 

1060 PR I NTTRB<4l 

"21 1 .hlil !! 2i 

Ml 21 * 


S3 Mi S3 818 

"iisr ■ "'k." 

1070 PRINT sPFGINT 
1 090 l :: 'P I NTTRB '1 €1> 

" '"PS 2F ""l® 1 

I SIF 'll 

a ii a §! 

jm*!' 

1090 PR INTTRB <6 > 

" si ■ a m $ pi 

■'Hi r .21 

ill 

2i b .a 

1" 

1 1 00 F'P I NITRE: 0 

"21 1 21 ■ 2i 

m a 

111 

21 881 

KM" 

1 | : | 0 PR INTTFlB 16;' 

11 21 81 |;S| INI a II 

.feill 

mu 

21 11 Si 

IT- 

1 120 PR I NTTRB'41 

" "H2I iifflir' j] nil 

21 1 


a »« s:i B 

"IHP. 

1130 PRINT SPRINT 
1 140 PPG NTTRB F 4;’ 

" sir "ipm ;gr 

1(1 2| "ir ill 

.h 

yniaii 2F 

"SI jllllk." 

1 150 PR I NTTRB'; 41' 

" w a #» 'i a « 

a s .si 

in 

2ir»iP”' , 8|;T"i|ii 

F 1 ""t II II" 

1 160 PRINT TFiB' 2l' 

"21 B 21 1 iS 

m a mwa 

H 

a » 

II li II" 

11, 1 !■;:) PP.I.H1 r hBle; 

1 " 21 »! 21 ■ 21 

in 2i i a 

ill 

21 1 .S3 1 

111 III 1" 

1100 PRINTTRBFE; 

p " SI ill ’"III 21 INF 

a ii 2i » 

.13 

■ a u 


111 "llllir" 

1196 PRINTs PR I Pit 

1200 F'P I NT T'BB '■ E> »«PPESS FlHV KElM TO PLflVET" 
;[ 2 1 0 G E "I". J ■$ I F J' i- < l> 11 " I" H E N G 0 T 0 1 2 3. 0 
















































ATTACK OF THE TOMATO 153 


1 

220 

c 

• E8 


IF 

FIT 

1 * 

‘ THEN .1 

2:! 0 





1 

236 

i. 

»-! 


48 ::h- 

= 4 

::l.2 

22= 1 101| 

1 2 MRK- 

0 

V2-:: 

j. 00 


1 

248 

i" 

0: 

SUB 

10440 

: R 

EM 

F 

■OP -TOV 

STII. 

CK 


1 

350 

F- 

R 

I NT 

IE HP* 

E 1 

47 

' 2 PR II" 

ITC HP 

$ < 

5) 2 

REM 

Cl... HER 

:!. 

260 

C; 

0: 

3UB 

1780 

;; F: 

El M 

SET 1.. 

IP SC 

RE 

El-1 



1 

270 

F 

El 

1-. 

.SF 

F: 1 

i"E: 

5—».. 






i 

280 

F 

Ei 

1.. 

•3 El T 

ME 

4 I 

jjiNTii: 

PS--- 





1 

2 90 

F 

01 

:IE2 

11840 , 

1 9 

II: ;; f 

"'OKI E 2 ill 

>4.! , 1 

3 3 




1 

"100 

F 

01 

■IE 2 

042, 

19 

II. F 

•' OKIE 2 HI 

44,1 

9 6 




1 

31 0 

n;: 

EM.- 

F'EIF-lO 

SF'F: 

TIE DRTR-. 





1 

7Z0 

F 

OF 

i J- 9 

1. 228 

8 T 

III 1 ;l 

0350 s F 

ElflDFi 

P 

OKIE 

III , fl 

INERT 

1 

i::30 

F 

OF 

? I 

1.235 

21 

III :!. 2 

•414 :F 

Eli 1014 

i: P 

OKIE 

I , R 

i-IENT 

1. 

340 

F 

OF 

R I 

1.24 .1. 

Eli 

j i 

:4 7' S sp 

ERDFl 

;; F' 

OKIE 

III , R 

INERT 

1: 

350 

F 

OF 

i I -4 

j. 248 

OTi 

01 :l 

:542 : F 

EE FI DR 

sF* 

OKIE 

in, r-i 

MERIT 

1: 

2601 

F 

OF 

: I T 

1.254 

47'i 

01. ;L 

:606 :F 

ERDR 

sP 

Ji-EE 

i, r 

MERIT 

1: 

3 70 

F 

OF 

' 1 :r.:: 

i. 273 

e; t i 

j .1. 

:?98 ;; IE 

END 14 

2 P 

jke: 

III , R 

MERIT 

C 

380 

F: 

E.r 

1.i 

JO LOIR : 

3PF 

: ITES- 

•- 





1: 

290 

F' 

OF- 

:ev- 

i-4 1 , 

1 1 

•'OF- 

1 IE V-1-48 

, 7 2 P 

OK 

EV-i- 

89, :■ 

; 

1 • 

1-001 

P 

e: r 

. 

ERF'FlMD 

Sl : 

'RI TES 






.1.' 

1- 1 0 

P 

EB 

:ev- 


3 : i 

•■of 

1 IE V-i-2 8 

, j. 1 





1 ■ 

1-20 

R 


i -----' 

"URN 

01 

-1 s 

F ;, R 111 TE 

9. 





1 ■■ 

1- 36 

F- 

0F- 

EV 

-21 

r 








1' 

j-40 

R 

E !'■ 

1-.: 

5 El T 

JO'- 

■'81 

ICK 1... 

Ill MIT 

7. 

... 



j 

1-50 

F' 

Jl 

E41 

11 Sill: 

.«• 0 

: PC 

FEE 4 91 

53,0 

2 R 

£14 


M IM 

:l. 

1-00 

F : ' 

...H 

ERE 

J1 56 

,6': 

:: F 

OK IE 4-9 

157, 

1. :: 

REM 

y p 

FIRR 

1 - 

>70 

F* 

Jl 

IE 4:1 

i 1 6 0 

,- 4; 

' :: F 

OKIE 4 9 

16 i ■ i 

J 2 

REM 

EOS’ 

M1II 

1 

1-80 

P 

OF 

IE 4:: 

i 1 64 

c.! •. 

6:! 

POKE 4 

9.1. 65 

• 0 

RE 

4 VS 

141 M 

1 

-90 

R 

Jl- 

ERIC 

■i 1 633 

, 0 

RE 

M SCR 

N PR' 

RE 




1!: 

•I 0 0 

8 

r'c;; 

4.9: 


2EI' 

1 TURN O 

4 WEI 

HOI 

“ c 

ODE 


1 |: 
.1. ■_ 

i i 0 

F: 

EM-. 

.MR 

CN 

MC 

VEI4EN 

T lEO! 

IT 

t me: 



1 

220 

R 

El' 

. 

.RE- 

3 El" 

. T 

OMFTT'O 






1 •’ 

770 

!■■■■■; 

3 ::r_ 

04!: 

. :POI 

EIE' 

%- .1 

6 , PEE 

< E V-i- 

. 6 

:■ OR 



•j i: 

i40 

p 

Ok 

E4:l 

1169 

,LF 

! \::i !! 

POKE 4 

3 170 

- Ml 




:l. ? 

»50 

p 

OF 

IE 4: 

1 1 7 3 

, V2 

:: F 

OKIE 4 9 

1 74 , i- 

;l 




If. 

i60 

p 

it: 

EV 

90 1 

= 'OF : 

lE'v 

•+•2 90 






1 

170 

pi 

Jl- 

E2:04 1 . 

9 3 

■: :i F 

OF 41:11 V'-l- 

-1-0,2 

:Rr 

:: ii 

RE BE 

"I" PO 


COLOR 


Listing continued next page 











154 games listings 


1 5:50 REM--**.MOVE L...Cj0i :;: '. 

1 6 0 0 L; 0 ::::: X 0 - N I! V 0 1 4 0.4 0 '■¥ 3 I N L X 0 7 N ' 

i <s 10 p r i h t t i :: i is < 3 3 c h r t < i 4 5 >" i... e: t r h r U" ;■ r, ; ■ 1 r o u f: s c o R i: 

■i » T » 

1 13 2 0 Cjo S U EiJ 26 913 % R i2 N S I--I I if' C 0 M T12 0 L. 

1630 V 1 -740+ 1 4 

1 0413 140:= I NT l X07256 3 :: LIC^XC---£56*1413 
1 650 I F FTX:=0TI4El4 l-'OI : E'-/ i- 1 6 .■ PEEK < V + 1 6 3 FTND252 
1136 0 F ;: ‘ O l< E: V , L X P 0 K E V+1 , V O R E M S F' R 0 F' 0S 

1670 P O i< E V + 2 I, X | P 01< E:V + 3 V 1 ;; R E M S F' R: 1 P 0 S 

1 68 0 G O 8 U13 2 69 0 R13 M S H I P C 0M T R Q L. 

16 3 Li I F C :> :::= 5 T H E N C 0 s VS := V S + 10 0 H N + 2 :: G 0 T G 1 5 3 0 

1700 REM.IF TOMRTO ESCAPES.- 

1 7 ' 1 13 :i; p X 0 <: 1 0 T H e: N T ::r T + 1 : C0 :: G 0 T 01 5 3 0 

1 720 IF T :> 5 T14 El N:!. 7 '4 0 s R E M H 0.. t H R U > 5 

1730 GOTO 1600 

1 4 Q ! 13 ;|; i i T C i-iR 4 ■: 1 - i 7 3 : 1101,1 IP 2 8 3O :: RE F 1 EH14 OF i 'FTME 
:i 7 5 0 3 1 :4 4 9 3' 13 3 :R E M D P 314 B1... E : 4 E i J L ■ E 

1 768 RUN 12 41 
1370 END 

17:30 F43M.- SET' UP SCREEN.- 

1 7 9 0 F : ' 0 K E 532 8 0 13 ; |3; E M C O L 0 R' 13 0 R D E R. 

1800 FT3KES3281 ,6 s REM COLOR SGREEN 
1 81 0 R E M.R E14 D 13 R CK G R 0 U N D 014 T FT. 


J 820 

FOE I -- 14641'Ci 1 

663 s RE 14OFT sPGKE 

18:38 

FTiK 1354272:+ I , 

4 : NEXT 

1 840 

F'UiR I --1 664TO 1 

748 sPUKL 1 :!. 88 

1 850 

PUR £542723 I, 

4 : NEXT 

186G 

F'OR I := 1 "744TOE 

023 :POKE I 160 

1870 

POK1254272+1 

14 NEX T 

1 8:30 

FT EM.STFTRS. 


1890 

FOR I 1 TO40 


1 900 

P:::6L 024+ I HfXR 

NDC13*4403 

1 3 1 0 

POKER46 : POP 

EP.'542721 

1 920 

NEXT 


1 9 3 0 

RETURN 








ATTACK OF THE TOMATO 155 


•I 

'■■■1 

40 

REM. 

.F 


i.... 


J 

OVS 

T 

j: 

0: l< 












•} 

2 

50 

Dh T Fi1 

20 , 

1 

f 



20 

s: 


14 

i 


in; 

Si,. 1 

c 

2 


1 

.... 

S: 

p 2 il 

J. 

2 

6@ 

DfiTFi 33 

..:!. -1 

:l. 

r 

0 

0 

1:ii 

2 


16 

9 


.... 

.1. ,. 3. 

4 

3 . 

,• 

in; 

lii; 



1 

2 

70 

D Fi T14 1 

6:9... 

1 

9 

2. 


3.4.1 

r 

ir.;! 

1 ... 



i;n 

!;;;! ,. 'z- 

l;;i 


3. 

i::- 

0 .. 

1.733 

:!. 

9 

30 

DfiTFi 2 

S', 1 

9 



1 

4 1 

2 

0 



i 


r 2 

2 


3. 

5 

2 

p 

14 3 

1 

9 

90 

1.JH 1 Hi::. 

1,0 


8 



96 

j. 


,• 

2. 

"7 


1 92 

,. 

in; 

lil 

!;: 


1 

6 


000 

DFiTFl 1 

92 

2 

48 


•5 r 

6 


S !:; 



9 

3 , r 3. 


3 


i::; 

in: 



,::1 

0 

1 0 

DFiTFt 1 

4-1 , 

2 

r 


1 

92 , 

i 

6 

r 

0 


:l. 

60 , 

k) 


•j 

8 

C 


S3 


0 

20 

DfiTFi 2 

20 

1. 

■4- 

i 


2 y r 

i 

:9 

2 ... 

i 

6 

s 

,. 2:2 

4 

r 

1 


s: 


2 

ir.; 

0 

30 

DFiTFll 

20 ,• 

1 

O 

5 


0,.0 

2 

0 


2 


1 

~7 

2 

8 


1 


2 


,n.' 

0 

40 

DFiTFl 1 

5 2 r 




2 

0,1 

£ 

0 


,. 

i 

0 

32,. 2 

2 

1 


c; 

1 


193 ; 

2 

0 

50 

DfiTFi 1 

.3.9 , 

2 

r 

1 

c 

2:.* .«• in; 

s::: 

■;> 

.*• 

2! 


1 

32 

3. 

4 

4 


. 1 . 

8 



060 

1.114 1 14 1 

09 



1 

9 

2 , 1 

!:: 

»' 

i::; 

i 


:!. 

92 r 

1 

!-"t 

5 


s 

p 

192 


0 

00 

Dl'iTFl 1 

S.j j' 

2. 

2 

,. 

j. 

92 , 

•I 

0 

4 ... 

..... 

4 

r 

... ;1 


6 


1 

2 

2 



0 

©0 

|) RTFl 1 

92 

5. 

0 

4 

r 

74 . 

..... 

2 

... 3. 

..... 

6 


13:3 ... 

2 

2 : 

i:-.; 

,. 

in; 

3 . 



0 

90 

DIET FI 1 

22 =• 

i 

o 

0 


2 3. ... 

:!. 

9 

2 r 

2 

0 

1 

p 25 

m: 

,. 

2 

lii; 

8 

r 

333 


:!. 

30 

ij Fit R0 

22 r 



r 

1 

92 ... 

:l. 

8 

9 


i 

_ r 

192 


2 : 

2 

% 


1 

ini 

2 

1 

1 0 

D14 T14 1 

92 

1. 

';;;! 

0 

.. 

2.2 »• 

1 

9 

2 r 

in;! 

5 


1 5 

-r 

1 

5 

2 


1 . 

44 


1 

20 

DFiTFl 1 

3 , 1 

3 

9 


:i. 

2 ... 1 

9 

2 

1 

!”*t 

r 


2 :l. , 

. 1 . 

9 

2 


3. 

8 

0 


1 

30 

I.JI-1 1 Fi 1 

3 ,. 1 

0 

2 


•} 

j. 

5 F :• 

2 


... .1. 

3 

i::- 


.104 


r 

4 


"7 

2 

r 7 6i 


J. 

4Gi 

D FiT 140 

0i 7 , 

:l. 

2 



:l. 04 

,. 

7 

4 ... 

..... 



176 


0 

,. 

i::.’. 1 

nr 

4 

.. 2 3. 


i 

50 

DlTT'fi 1 

92 .• 

2. 

0 

;;;! 


O •;;; 

5 

4 

2. 


r 

i 

92 

1 

S3 

9 


0 


192 



30 

DFiTFl 2 

2 1 , 

i 

..... 


1 

92 .• 

1 

i! 

3 

:l. 


i 

92 r 

2 

5 



3. 

0 


2 

.1. 

20 

DFiTFl 1 

32 ,. 

1 

4 

4 


:l. S3 

1 

0 

3 

0 


3. 

92 ., 

1 

c:j 

7 


1 

..... 



1 

30 

D FIT 14 1 

92 

i 

8 

■J 


3. , 3. 

9 


i 

5 

7 


3. S3, 

1 

0 

2. 

_ r 

1 

0 

4 

2 

i 

30 

DAT fi? 

4 ... 7 



|7 

6 

.- 1 ... 

i 

9 

-* 

:l. 

ill 

4 

r 74 

,. 

7 

•“1 


1 

7 




30 

DFiTFl .1 

2 .1- 2 

2 

:C. 

r 

i 

F'1 

9 

2. 

.. i 

y 

9 


3. '7 , 

1 

9 

in.'.’ 


2 

0 

1 



1 0 

DfiTFi 2 

55 


0 

33 

r 

5 .»• 2 

2. 

2 

i 

S 


.1. 

92 r 

1 

8 

9 


1 

”7 



2 

30 

DflTF-l 1 

30: r 

2 

;;;■ 

1 

v 

41 

9 

2. 

r i 

si 

•4 

r 

:L s ,• 

1 

9 

::L 


,::i 

5 

.“»,. 5 

2 

2. 

30 

DFiTFl 1 

92 ,• 

3. 

4 

4 

r 

1. 8 ... 

i 


9 

4 


1 

32 ,• 

1 

C." 

r 


1 

“7 


,r.l 

cl. 

40 

DfiTFi 1 

92 

1 


9 

r 

5 1 

9 

2* 

... 3. 

mr 

F 

r 

1 S3 

:i. 

0 

in;.' 


10 

4 

i::.! 

,;;1 

501 

DH 1 14 0 

4,7 

2! 

r 

»■’ 

s 

, 4 S3 


:l. 

93 


1 

4 

47 

4 


"7 

2.' 

_ r 

1 

76 


2 

60 

DFiTFi 3 

r 25 

4 


i 

«' 

... 1S 

2' 


30 

& 



25 

4 

r 

3. 

S3 


1 

2 

2 


7 0 

DfiTFi 1 

04 , 

r 

4 

r 

3. 

7 6 

nr 


16 

3 


1 

11 




i:.t 


1 

92 


2. 

30 

DfiTFi 2 

10 01 

2 


2 . 


2 2 


2! 

2 *4 


4 

,. 

3.340 


3 


F 

6 

r 

3 :l. 

2 

2 

90 

DfiTFi 1 

92 


3 

4 

r 

Cl . l‘ r 

1 

0 

2 »• 

i 

ill 

S3 

r 2.9 


1 

"-I 






Listing continued next page 












156 GAMES LISTINGS 


2 cl tie It I I Fi:35994 HE' KSUM* 

2 1 0 F OR 1 -.49 i t: ITT 04 9 4 73 
23:70 E'Ehi Li :: EOEE i , : ::E C~ CO G : 

2336 NEE:7 

2 E:: 40 RE RON :: l F ! I X CC THEM E R [ NT "CHE C E SUN EE F ROE'.. ' 

235O fee: TURN 

236t:i EI-. i I.••■■FIRE. SUBROM I' 1NEE-. 

2338 POKEV + 21 PEEK: E V+ 2 1 OR 1 c- * REN TURN ON 

24 00 IF.F' E E l< E £ 0 4 2 X* - 1 3 4 T H E N D H■■■- .3 O 

2410 U=-0 

4 2 e :t F F' E E K ( 204 2 > -= 19 5 T H EE N IE! X = 3 O 
2430 X4 = X44-DX 

2 4 4 0 L ~ L. •+• :l. :: I F L '>4 T H E N G 0 1 02 5 4 0 

£:4 5 9 H 4 I H T E X 4 X 2 56 > : L. 4 = IX 4 -■ ,2 5 >3 '*■ E l 4 

2400 I F444™ 1 ■TI4ENF'0I<:EV+ 1 6 PEEK X V+ 1 6 > OR 10 

2470 I FH4«;0"rHE:NPOF::E''.’ , 4-1 6 PETEK X V + 1 0 E> FIND239 

2430 P0KEV-H3 I...4 

2490 REN SCREEN LIMITS 

2500 7 FX44<0ORX4>32E©'T'HENPOKEV4-2 1 , F'fiEK X V-i-2:1 7 RN0239 : G 
010254 G 

2 5 1 ti P C:::: F' E E l< X V + 30 X 1 R EE N C 0 L L IS I 0 H R EE XX 

£ 5 £ 0 IF P C := 1 9 T H E N P 01< EE '■/ -i~ 2 1 . I ::; ' EE E KX V •+• 2 1 :■ F : l N D239 :: 00 EE. U E 25 5 

0 

2530 GOTO24E:i0 
2540 REE'TUFEN 

2550 E'EN X 01. L. I EXON I 19 OU I II ilEE 
2560 C :-::C"l4El , 'E ' 

25 70 RFEN 0FIRNGE 1 tU'l Col. OMR 

25:30 o| m |. ;| Ou'l ti 2 62G: ,-2630 2:E ; .40 ,. 265i ! ■ .E:tl: ! Ci 
2590 REM -EX PL OOIEE TON ROE RND TURN OF F 
, 'i 00 POKE,..:041,1.93 ;i Oi :; L- .l I'Y.iXidOe :: NIXE'. 


2EE 10 POKE: 

X + , 1. , FIE E i- 'v 

■I" .1. 

> RND 2! 

5 ;EE ; G O T1 

>26 7t 

2620 POKE 

V-i- i O 3 :: GO EC 

fo / 

■3 



2630 POKE 

VN-40 , ttl s GOT 

G 26 

0 



2640 POKE 

V+40,9 iiGOTC 

2 7 

3 








ATTACK OF THE TOMATO 157 


2650 F'OKEV + 40., 1 1 M3OTQ2670 
8660 F- O l< E V •+■ 4 00 j G 0 T 0 2 G ? 0 

£00:0 RETURN 

2690 R E: N - S HI p r: O i-i J R n |... - 

2 7 08 R EM - S HI F' C 0 HT R 0 L- 

2 7 3. 0 X!....::::: X 2 s R EII l< E E F' LH 3 T X 2 
2720 I F F : ' E E K 7 5 € 3 2 G 3’ FlIIIJ16 2 > 161H E H G 0 SIJ132 368 
2730 X2:=PEEI< ■: 493.69 3-+256*PE Ek 49 :i. 70 
2 7' 4 C:i V 2P E E i< 7 4 91 7" 3 •+• 25 6 P PE E l< 7 4 91 ? 4 > 

2750 REM RESET' ITEM POINTER 

2760 :i: F'x 2 >x l..thenpoi<e: 20423.95 

277'0 REM RESET MEM POINTER 
2780 I F'X2<XL S THEMPOKE2042...:!. 94 

2 7 9 0 M X IH T 7 7! 2/2 5 6 > :: L X2=X 2 2 56M'2 

2800 I FMX = 1 THEI-IPOKEV+ 1 G ,PEEK 7 V+ 3.6 ;• 0R20 
2S' 1 O IF-MX=s0THENPOKEV+16 ,PEEK7 y + 3.6 7FIND235 
2S20 POKEV + 4 , LX2 :: POKEV+5Y2 s REM SPR2 PCS 
28 30 POKEV+8L.X2 s F'OKEV+9 *'t';2 sREM SF ; 'E 4 POS 

2840 R E M F IR E B U T T 0 H i ::: ' R E S S E D ? • - 

2 73 5 0 F' R=I-' E E K 7 5 23 33: 2 0 > R H 0 3. 6 


2860 

I FEES 

:>:l6THENGOSUB22 

‘60 




28 70 

retuf; 

N 





28823 

REM. 

.E.HI.J Li I- UHITE- 





2890 

Pn|<E5 

328 3. .. 0 





2900 

POKE'/ 

•1-2 1 0 





29 10 

PR I NT 

CHET 7 28 7' SPRINT 

CHET 7 1 • 

17. 

, 


2920 

PR I N'T 

:PR I NTs PR I NT 





29 30 

PEI NT 

THB 7 3 7’ 11 Sir VM 

a ii a 

Hit! 

.sir 

■"pit sr sp" 

•’hi in 

II ilk 

PR I NT 

II" 

IFlB>'3,• "SI |!i .a 

mi a ifii 

.s 

i a 

ms a ii a bii 

si 

22350 

i in it 

PR I NT 

■kJW 

I i-i ST :3 7' " a »i g 

ins a mil 

.bill 

nil a 

in si r wr a 

||i*' p 1 ' 

■ ii 

ipill" 





:21::: 1 *::> U 

F'R .1N ! 

I H0 3 Ulll 

Ml "Ha”! 

HI! 

.isi -pi a 

"HI 1 

1 111 

w 
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■2970 

PR INTTFiB I -3 l " '"Hi;; 

IBIIIF V 

m iiir s ii! 

w. "siiir ii ir 



23*88 

F'F? I N i CHRT < 5 :■ 



2 290 

PR I NT PR I NT PF 

I NT :PR INTTl 

1131 :i. 2 7 VOUI 

” r •::» 

9000 

PR IH TCHET 28 3 



; 01 0 

PRINT i:PR I NT sF'F 

.i. N i ! Hi3 i: " 

. . . HH ' 

~f V 1 
3920 

Pt i FT 1 i- .1 T ■ " ' 

THEN3820 


:i i 20 

lT TBT IFNI ' 

1-1 Ell 3 0 30 


-■94 U 

3 920 

Ki“ 1 UKH 

PEN.-.BRCKGRi: 

iUND D14143. 


3060 

pH T 1 ! 3. 1,4 . .3.:: , 

233 ... 229 82 , 

32 82 , :.:33 

;4 i . '1 : 

Dl-11 N 3:.3 , T.I . 33 . 

33 ,. 32,3:3 , 32 

.'■88 " 8 2 ; -:N~ 

3880 

i 1 Fl I i- : l 32 . ■ .42 ■ 

>2 .*■ 32 32 r 32 

,. .:3:3 .3,3 , 42 

3090 

[ iRl R32 3,1: , 32 , 

>2 32 .«• 32 .. 3.=:! 

,• 32 ... 32 32 

3 :i. 00 

Ui-1 1 R 62,32,32 

;:33 ,. 1344 , 160 

,. 1 60,223 

31 i 0 

014144:32,32 ... 32 ..: 

33,32,32,32 

, 32 ,- 6 2 , 62 

3 1 20 

DRTH32.32,32.: 

3:3 ,- :.:33 333,62 

32 82 .• 82 

3 i 40 

UH l H . :• t.:3 . 

UR i M 3,3 4 2 ■ :■. 

;;3 1 60.11:3 44 . 

1 64:.i . 164.i 

3:!. 50 

1 UN'! H t i:43 , 1 601 1 

-'0,22 3 „ 32 , 3 

, .: 42 . . .3::. 

3 16 0 

DR 7413 232,32 , 

3 3 ,■ 2.2. -2 ... J2 r 

3 2. . 2 2. , 3 2 

3 1 ?W 

DEFT 0 3,3 32,3:3 

: '2 32.32 32 

.24. 1.60 

3 .1 80 

DR I Fl i 6t 1 , 1 >30 , 1 

44 ,. 223,32 , 4 

2,43:3,62 

3 1 90 

DPI i HR : 3 , ,1 34 :l 

:4I , 1 60 ,. 1 60 ,. 

1 60 ,- 1 '40 

3200 

Li N T 14160.1 6 D . 3. 

3 r 3 ir.:' ...3 ',-2 .«• 3 

, 32 32 ... 32 

32.1.8 

14HI RE F3.. 160 1 

::41 r 32 , 3 . 12 

'3 ‘3 2.-2 2 

3220 

1301 R3. , 11:3 7 3 3 

,. 160,1 Nil , J 6 

Pi 1 60 J 60 

32301 

! i'll h i 60 I 6 U i. 

40 ,3323,32,3 

2,233 160 

3240 

DRTR160,16©,. 1 

3.U , 1 60 , 160 , 

160.160 

3250 

DR'T'fi 1643 , 160, 2 

8 u; ,• 2.2 : ,.:-8 

, 233,10 

3260 

DR'Tfi 1 60,1 643 ,. i. 

i-i .; .. '- . , .p 

2,32,32 

3270 

DRTR233,. 168, 1 

40 , l 60,1641, 

1 ' .0 . j. 60 

3280 

DR'TFI 160,160.,. 1 

50 „ 1140 1643 , 

1 60,160 

3290 

DRTR160,1601 

68 


3300 

REM —.SPE I TE 

0 DR 1 H. 
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33 1 0 

DAT 130 


... 0 

0 

0 

... 0 

01 0! 

01 , 

id 



3320 

D13133 1 

3i:: 

0 

0 

1 

■J 0 

„ 0 0 

1 5 

•2 .• 

id 0 2- 

;:4 

3330 

DRTH0 

k 

.3 

s 

0 

S 01 

, 1 1 5 

1 

6:.' 

39 .„ 54 


3340 

DRTFi 1 

r 


.• 0... 3 

i 

59 r 0 

6 r 


12 8 ,- 4 

0! 

3 350 

DAT Ft:! 

0:: 

4 

0:i. 

28 






3360 

DRTR0 

L 

0 

0 : 

0 

0 

,. 0 ,. 0 

01 , 

0 

0 0! 0 

0! !■■ 

3370 

DR 1330 

£ 

•• 0 









3380 

re:n. 

. 

8Pi 

3 I 

IE 

i 

DfiTT 

1. 




33.80 

IJI4 ! H 0i 


0 

„ 1 


1. 3 

1. , 1:3 c 


i ,■ 

1 99 ,. 21 

:4 

3400 

D FIT H i:3 


1 9 

~J 

24 

1 .. 1 

~l 2 r 2 ’ 


24 

8 .. ]. 2 7 

•;:< i:::- r~ 

3410 

[ in i 13,;.: 


-i 

... .1. . 



J .".I 

•. rr 

• , 

2!;;; 

5 

255 ,. 21 

<4 

3420 

DFl 1 Ii2' 

»:r 

... 

,. 2 

1 r: : . 


54 

• 2 *r.* • , 

2 If 

L“:‘ 

£54 ,. 2':. 

!~i 

3430 

DRTR2 1 

51:: 

• I 

,4 


:r in: - 
•_.* 

"T irr 

• . 

c:: 

4 

•“< nr i::r rr 

15 

3440 

DFIT FI 21 

j 

1, 

.:! r 

, 2 

j !;j 

5 ■; 

1.2 


255 2= 

o 

3450 

DRTR 6: 

l, 

2 1 

"t 

24 

I; 



24-0 3 j. ,. 2 

b 0 

3460 

050132: 

31 

, 1' 

.* »• 

25 

-■ 

92 ... 7 

... 2 

55 

, 0 1 2 


3470 

FI Ell. 

. 

81=1 

i 

IE 

2 

DRl'T 

. 




3480 

DRT 1=10 

• 0 

, 0 

■ 0 

... 01 

„ 0 

01 _ r 0 

0 

id 

0 ,. 0 „ 0 , 

01 

3490 

□RTF:? 

• 0 

01 

■ 6 

3 , i 

;l , £ 

i... 237 

, 01 

... 7 

152 , t 


1500 

DRT 134 f 

■: r 

0 , 


j 

:.'2‘“ 


!;;;i !.j 



cr ir:j 

351 0 

DRT132': 

"i 2 

, 0! 

1 

2 j 

32 : 

:4,0 , 

8 

4 

di:‘;i 


3520* 

Dh 1 fi. 

.1. 

52 

01 

, Fi 

•- 

,. 0... 

0 , 

i~i 3 

r 0i , 0 7- : 


35 :■ 0 

0131330. 

0 

, 0 

0 

, 01 

• 0 .* 

0 , 01 

id 




3540 

ft EM-. 


SF'F 

:l 

r e 

2E 

: DR 03. 




3580 

DRT 130. 

0 

01 , 

0 


■ 0 

0 , 0 

0 




3 580 

DR 1332,: 

4 

01 , 

0 

•••;. ir 

;>2! 

0 , 01 

18 


3 ,. 0... 25 

«■ 22! 

3578 

DR 1330. 

.1. 

2 !: 

«6 

r 0 

• 7 

190 , 

0 


c; :55 .• 

24 

35801 

DRTR6.S 

[ r 

r..'! 5 

; , 

1.9:; 

- .»• I 

,. 1 90 

... 0 

i 

■!:!... 56 , 0 

i:::j 

350i3 

D FIT Fl 2 i 

34 

>r 0 , 

i 

33. 

0f , 

id 2 5 

2 ,• 

d 

l ,32 2 4 


3600 

01311=10 

0 

r LI , 

0 

0 

0 , 

01,0 

01 r 

•3 . 0 ... 0 0 

0 

36 1 8 

REM . 

. 

3 FT 

: 1 

i'E 

4 

DRl'R 

— 

— 



3620 

001330 , 

0 

01 , 

0 

, 0 

0 , 

0 ... 0 ,. 

0 




3630 

DRTR0 , 

0 

r 0 , 

0 

.. 0 

0 ., 

0,01 

01 




3640! 

DI3T130 

0 

0 

0 

, 0 . 

0 

0 0 ... 

d 




5650 

DRT'Fl 1 :.= 

5 

, 1 2 

* 

48. 

18 

5 , .1 2 

4 




3660 

DFl 1330 , 

0 

, 0 , 

0 

• 0 .r 

0 „ 

01 
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367Q 

DFUFI0 

.. 0 


3 

0 

0 

3 ... 0 

.<• 0 


3680 

DRTR0 

0 

r 

•3 

0 

0 

3 0 

, 0 


3690 

DFITR0 

0 

, 

3 , 

0 

, 0 

30 



3700 

REM.- 


8 

PR 

I 

TE 

113 

DF 

T fi -.-. 

37 1 0 

DliT'Fl 1 

1 

s 



S4 ... 

31 

& 

32,0 

3720 

IDE! 7'FI 0 

1 

& 

, 1 

i:d 

, 64 

... s ... 

0 

1 28 0 6‘5 

3730 

IDEM R6 

.• 


, r 1 

6 

, 4 

| .. i 

S r 

1 6 4 ... 1 2 F: 

3740 

ORTR6 

4 

0 

, 1 

*3 

0 . r 

7 3 r 

56 

0 .. 0 

3750 

DRT'Fl 1 


r 

1 F 

!:::* 

4 

56 , 

0 , 

1 333 .1. 6,0 

3 7 6 0 

IDFITFIW 

, 1 

3 

0 , 

1 

6,1 

, 1 7 

J 

.. 64,0 1 21: 

3770 

DmT'Fifi 

, 4 

_ r 

0 , 

8 

, 0 

,::i i 

IF 

, 82,1 f; , :32 






Paper, Rock, Scissors 



Beat the computer at this old children’s playground game. The rules are simple: 

Scissors cut paper 
Rock blunts scissors 
Paper wraps rock 

When you choose either paper, rock, or scissors — by pressing respectively P, R or S — the 
computer also makes a random choice. If, for example, you choose scissors and the computer 
chooses paper then you win. If, however, the computer chooses rock then it wins because rock 
blunts scissors. 
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1000 REM ¥¥¥■ F'RF'ER ROCK SCISSOR^ Hl+l+i 
1010 PP 3. HIT HRir •: 1473' 

1020 F' T <■'. 1 > = " PFlPER " PT < 2 > = "ROCK 

1 030 F' T < 3 > nr: 11 S € IS S O R S'' 

1 046 CT < 1 =PT .1. > s C T2 =F : 'T k 2 > :: CT < 3 3> -F'T < 3 > 

1050 REM INSTRUCTIONS *■:** 

1060 P RIN T T 1=1 B < 9 3- ' 1 - P 1=1 P E R K R 0 C K/ S C13 S0 R S - '' 

1 070 P R IH T C H R T < 1 7 > C H R T < 1 7 > 

1080 PR I NT "THERE FIRE THREE POINTS TO REMEMBER 
1090 PEINITREc: 10> " 1 3> PFlPER WRRPS ROCK" 

1100 PRINTThBl10>"2> ROCK BLUNTS SCISSORS" 

1 110 PR I NT TUB < 10 3> " 3> SC ISSORS CUT PAPER " 

1120 PR I NT CHET < 1.7 > CHET < 17 > 

1130 PRINTTABX9 3-"PRESS KEY ' S P,.R OR S" 

1 140 PRINTTREK6> "FOR PAPER.,ROCK OR SCISSORS” 

1 150 PR I NT CHET < .1. 7 > CHRT C 17 > 

1160 PEINTTAB<9) "PRESS A KEY TO PL.AY" 

1178 GETAT:IFAT»""THEN 1170 
1 .1.80 F'E I NT CHET < 147> 

1 1 9 O R E M P L. A Y E R S C H O I C E * ¥ ¥ 

1 200 PR 11-IT CHRT < 1 9:? " COMPUTER s " CS 
1210 PR INTCHRT C .1 9 > TAB < 20 > " PLAYER s " PS 
1 220 PR 1 NTCHRT < 1 7 > CHRT < 1.7 > 

1230 P RIH T ' 1 F' - < P A F' E R > R - C R 0 C K > ' 1 ; 

1240 PRI NT"OR S-< SCISSORS>" 

12 50 P R 3: N T C H R T < 17 3' C H R T < 17 ;• 

1260 GETAT 

1270 I FA TO " F'" ANDATO " R " ANDATO " S " THEN 1260 
1230 I FAT-- " P " THENGOSUB1430 
1290 I FAT-"R"THENGOSUB1440 
1300 IFAT="S"THENGOSUB1450 
1310 REM ¥¥¥ COMPUTERS CHOICE ¥¥¥ 

1 320 Em: I NT < END < 7 1 > *3+1 > 

1330 0N R Cl 0 S U B14 ?'0,14 80,14 90 
1340 REM ¥¥¥ WHO SCORES ? ¥¥¥ 

1 350 I FPCrr: 1 AN0CC=2THENPS=PS+1 
1360 I FPC:= 1A N D C C - 3 T H E N C S=C S + 1 








PAPER, ROCK, SCISSORS 163 


137@ 

IFF 

C-2RNDCC 

:= 1 THENC8=CS +1 

138@ 

IF F’ 

C=2FlHDCC 

=3THEHPS=PS+1 

1 390 

IFF 

C=:3flNDCC 

e1THEHFS=PS+1 

1 400 

1410 

IFF' 

GOT 

C:::-3flHDCC 
01200 

— 2 T H E N C S=C S + 1 


1420 

RE 

M 

*** 

pl. fiver 

4:** 


1430 

F’R 

11- 

ITTFlE 

c; 20 > ; P 

$ < 1 > 

:PC-1:RETURN 

1449 

PR 

IT 

ITT RE 

< 20 > .? P 

T >■'. 2 > 

: PC = 2 2 RETURN 

14 50 

PR 

1T 

IT T he 

£ 20 > ; P 

t < 3 > 

s PC=3 : RETURN 

1460 

RE 

M 

T *•'* 

COMPUT 

ER * 

V# 

1470 

PR 

Ji¬ 

ITCFIF 

■$ 1 43 > 


1 > sCC=l s RETUF 

1480 

PR 

ll- 

ITCI4F 

■$ C 145 > 

" CT •; 

2 > :CCsf£ : RETUF 

1490 

PR 

II- 

ITCHF 

14 5 > 

;CT< 

3 > sCC=3;RETUF 
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Searchlight 



Your base is undergoing a night-time air raid. Use the searchlight to pick out the enemy bombers 
and then blast them out of the sky! There is no moon to help you but you do have three flares at 
your disposal it you cannot find your target. Shoot down as many aircraft as you can before your 
base is bombed-out. 

Use the joystick to control the searchlight and shoot down aircraft. Flares are fired using 
the SPACE bar on your keyboard. 
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1 000 

POKE 5 S 3 2 8 

1 0 :: 

::, OKE 532 S 0 ,0 



1 0 1 0 

PR I NTCFIR 

■$ L 1 4 

7 S ; PR IHTCHRT" L 158 S 



1 020 

PRI NI T RE 

L 5" 

1 

i 

t 

1 030 

PR I NTT FIB 

L 5 S " 

1 I 1 

{ 

1 " 

1040 

PR I NTTAB 

f;;;i 11 

1 1 

I 

!" 

1050 

PR INTTRB 

L 5 S " 

i i 

1 

1 

1 060 

PR I NTTRB 

11 

i 1 

1 o 

1 

;l. 870 

PR I NT T RE: 

»:; 5 > " 

1 1 

1 

1 

1 080 

PR INTTRB 

L ’5 > 11 

'■.•, ,■.■, ,.! 3 .,., \ ., 

1 1 - r . 

1. 

3 . 090 

PRINTTRB 

ir.:- ii 

Ii II 1 i II II 1 

1 1 1 

1 

1 .1. 00 

PR I N T THE: 

i;‘ 5 j 11 

I II II II II 1 ! i 

1 i 1 

1 

1 .1 1 0 

PR j: NT The 

in:* n 

! 1 3 .■' IN 1 II 

II 1 

1 

1 120 

PR I! r I TT RE: 

»:; !“■; > 11 

III III 1 1 i 

1 i 1 

1 

1 1 30 

PR I NTTRB 

I 5 11 

. f ' .I 1 '■.’ 1 1 

1 1 . 

I 

1 140 

PR INTTRB 

» 



11 

1 3 . 50 

PR1NTTRB 

L 5 > 11 



•' 

1 , 3 . 60 

PR I NTT FIB 

L 5 S " 


i 1 

11 

1 3 . 70 

PR INTTAB 

"j .J ! * 


1 1 

1 i 

1 ISO 

PR INI 1 FIB 

in:* ii 


1 ! 


1 190 

PRINTTRB 

< 5 > 11 


I. .1 

" 

1 200 

PR 3 : NT :: PR 

3 : FIT" 

SCF-RESsli RNt KEV TO 

PL Fir 

;> ! 

3 . 2 3 . O' 

D INKLES 

J L 6 

, F' L 6 3' 




1220 V =*3:13248 FOR 1 = 1 T05 : D L 3.' 3' =: 1 :: P I 1 > 1 4 NEXT 

3. 2 '4 0 G 0 S U B 3::.’5 2 8 ; R E M M X C J 0 'r' S3 T IC K 
1258 GETAT :: I FAT-: " " THEN 1250 
1 260 G E T J 4 : IF J T < >' 1 " T H E N 1 2 6 Li 
1278 GOS3UB2160 ;RE!7 SET UP SCREEN 

1280 REM.EEFllJ SPRITE Dl : 1 111 ; . 

12 S' 0 F 0 RI = 1 2288T 0.1.2 Si 5© 1 : R E A D A: F : ' 0 K E l FI :: NE X T 
1 300 FOR I :l. 2352TD12414 REFlOFl ;; POKE I , Fl :: NEX T 
1 S31 0 F O R I8 S' 6 T 0 S' 5 8 R E H D A s F' 0 K E I Fl s H E X T 
1 3 S3 0 F O R I = 1 26 7 2 T O 1 2 7 3 4 :: R E A D A :: P 0 K E I Fl if| X T 
1330 FOR 3: ::::: 12736TO 12798 s RE ADA ;; POKE I , FlNEXT 

1 3 4 0 R: E M - C 0 L. 0 R S F' R 1 T: E S . 

1350 REM .SPRITE 8-. 
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1 360 

F :, 0!<EV-4-33 ,2 i 

;:: 'OKEV-i- 3 7 , 7' 

sPOKEV-4-33., 3. 

1 3?0 

REM.SPRITE 

1.5.-• 


1 380 

F433R| + 40:1'rij' 

V-i-44 pijKE I 

0 HE!NT 

.1. 3913 

REM.SPRITE 

6--. 


1 400 

POKE V4-4 5 7 



14 :i © 

REM.SPRITE 

7. 


1420 

POKEV+46 ,2 



1 4:30 

POKE V +23,1. 2 

8 ::REM SET 

MULTI COLOR 

1 440 

REM.SET 

F'O I N TIERS:. 


1 450 

POKE2040 3.0 

2 :REM AIR 

EPiP 

3. 460 

POKE2046, IE 1 

: P: fc:. PI S E. Pi R 

chi... :i: gut 

3.470 

POKE204 7 , 3. 9 

9:: RE PI GROUND E : HP 

3. 480 

REM..JO VS 

TICK LIMIT 

'■'.'9 . 

1 490 

POKE49 3.52,0 

;; POKE49 3.53 

...0 ::REM 62 MIN 

3. 506 

P0KE491 56 ,• 3. 

3.3 POKE431 

57,- 1;REM 62 MPT 

15 3.0 

POKE4:0 3.60 ... 0 

:: POKE4:916 1 

, @ RE PI V;2 MIN 

.1. 520 

POKE 4 9 3. 64 1 

92 : POKE491 

65 ,.0: REM V2 MR 

3. 5 3 0 

P0KE49168.0 

::REM Si CRH 

RR'TE 

3. 540 

S VS 4:0 3. 83 s RE 

M ENTER WE 

DOE 

155(0 

REM—.S E T 

si is: is is c hi... :i: ghtkdat pi ftp i or i t 

3. 560 

POKEV+27.,64 



1 570 

REM . E77F44MO SPRITES 

> «::« «!?•: / .. 

1 580 

POKEV + 2.3,1:0 

2 s POKE'/■+' 29 

1 , 192 

159fci 

REM— . IWI T 

:i: |0L SETS IPO: HI.... IGHT P0S I T I ON 

1 6001 

POKE49 3. 69 , 4 

1 ;:P0KE4317 

'0,3. 

1 6 3.0 

POKE4.9 1 73,1 

29 SPOKE491 

740 

1620 

REM . TOR 

H ON SPRIT 

'E. 6- . 

1 630 

POKE •, 24. ,.64 




1"' p: hi... P: i'"i 1*1 Pi 

: pr p P H p M h T T 

n (-.) __ 

3.650 

FKKtNT <: rhi:k 1 

i 1 HP '3 > 


16601 

IFF=s0THEMGO 

ISIJB23'40 2 RE 

PI FORMFlTIOH 1 

1670 

I FF== 1 T PI EH GO 

iSUB2990 s 10E 

M FORMAT I Oi l 2 

16:30 

I Fl r = 2 THE HOC 

I8UB3040 :: Pih 

M FORMAT I OH 3 

1600 

FORB- .1. TO5 :: F 

'OKEV. + -zm ,r> 

PEG sNE'KT 
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1?2@ POKEV+21 ,r PEEK< Vh- 2 1 DjFfgT: sREM TURN ON BOMBERS 

1 7'3S REM.NHIN LOOP-.- 

1740 C::=C+ 1 

1 7' 5 0 G 0 S U B3099 R E I'i M 0 V E & E14 R C H I... IG H "!" 

.1. 760 F0ft 1:3::= :|. TO5 

1776 IFX •: B > 7254THEND C B > =.1 s P 3 B > == 193 

1 ? S O 1 F X < B > < 1T1-1E N D B > = 1 P < B > ft; 1 4 
1790 P0!<:E1'' + 2 TB,-KlB::' 

1E3Pi Li F : O K E204 6+ B - i ::; ' < 1:3 > 

1810 G O SIJ B309 0 : R: E M I'I 0 V E S E 14 R C H LIG H T 
182 0 X < B > ::= XL E3 >.+. D C B > : N E X T 
1838 I Ft:/'20=.[ N T C C/2G >T HEN GQSUB3440 
18 410 IF E H =:: ]. 7 H E H 3. S S' 0 ; ft E M C H E C !< F 0 ft E N D 
1850 IF < PEEK < V~h2 1 > FIND62 > = OTHEN 164 @ 

I860 RE I'I-.F LORE 8-. 

1878 GETFT :: IFF$== " "FINDFL.. < > 0 T H E N G O S UB4090 
1880 GOTO 1730 sftEM RESTFlRT LOOP 

1890 REN...END OF GOME.-. 

1 900 F ft I N T C H R $ < 1 4 7" > R E I 'I C L_ E fl ft 8 C ft E E N 
1910 POKEV+21 O0 ;;REM TURN OFF SPRITES 

192 0 R E M - - E N D I 'I E S S Fi G E.- 

1 9 3 0 p ij K E53281 8 : F' O K E53280 ... 0 
1940 F'R IHTTOB < 3 > " \ ., 

1950 F'R IN T TI4E3 >'■. 3 > " II I III 

I " 

I960 F'F: I NTTflB < 3 > " | | I III 

I " 

1370 PRINT ri4B<3> ' | | I ill I 

I " 

1980 PRINTT0B<3>" | | | ill I 

i " 

1990 PR I NT TAB '• 3 > " II I ill I 

I" 

2800 F'R: INTTRB < 3 >" | | I II! I 

I" 

2010 F'R I NTTflB 03> " I-- 1 -, .,- T -, h-. ,---l I I ft " 
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2020 F'E I HTTftB C 3 > "I II MM! II M I I I I I I 

i " 

2030 PEIHTTFlB<3> 11 | || Mill II II I I li I ! 

I" 

2640 PR 1 NTT'Flt3 C 3 > " i II Mill I F ' II I I I I I 

I" 

2050 PRIHTTHBC3> " | II I I II i I II I ! I I ! I 

I " 

2060 PRJHTThB' 3>"I II II II II II I I I ! I I i 

1 " 

2070 F : 'R I NTTflE < 3 > " I II II II II II i I II I I I 

II 

2030 PR I NT TRIES F 3 > " |-.-. 1 .| | h.' -I .'.■' W 

O '' 

209 0 P R1N T P RIH T1" Fl B F 8 > ” V 0 U R S C 0 R E '' ; V S 

210 0 F' R i N T ;; P12 I H T TFl E3 < 5 > C H R T < 1 2 9 > ; " C < P R E S S H H V K E 't ! T 

o Pi..i : iv:>::> I! 

21 10 #V0492Gll :,REI V | DISFiBL.E WEDGE 

2 1 20 REM.RESET SEFiRCHL. I Gi i f F : 'GS IT I OH. 

2 1 3 0 P0K E V -I-1 2 4 1 :: P O K E V + 1 6,1 : P 0 K E V4-1 3,1 2 3 
2140 RUNI 210 
2150 END 

2 1 6 0 12 E M - -.S E T U F' T H E S C R E E H. 

2170 PR I NTCHRT 2 147 ■ : 12EM CLEFlR SCREEN 

2 1 90 F IR I H 1 TNB < 6 > CHET < 1 45 > ? CI4I2T C 1 58 > " VOUR SCORE 0 " 

2 2 00 R RI i -I T T FI B < 2 5C H R ■$ <: 4 !5 > ' 1 F' L Fl R E 8 1 ' ; F L 
2210 12 EM.GROUND. 


222:0 

EOF 

I 

21.94 4 TO 20S 

:3 sFGKEI ISO 


2230 

l-'Oi-: 

E. 

-'-54272 1 .1 

: HE H I 


2240 

REF 

. 

•TO WEE:. 



2250 

EOF 

T .. 
.1. - 

71. 308TO17F 

is: STEP-40 


2268 

PDF 

e: 

, .1. OF; :: POKE 

,36 SPOKE 14-: 

2 1 1 

2270 

POF 

e: 

4-542721 1 

SPOKE 1 4 -1 +5427: 

2 , 1 1 

2280 

POF 

e. : 

-i-2+5427'E: 

1 1 sNIENT 


2290 

POF 

E: 

!! F : ’ C 

|< E1 6 2’ 9 ■+■ 542 72 . 

1. 1 
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2300 POKE I669,66 POKE 1669+542721 1 

2310 REM..BUILDIHG ONE: ..- 

2320 F 0 RI 1920T O:!. S' 2 3 : i ::: ' 01< EI , 16 0 

2 3 30 P 0 !< E I.40 1 60 : F' 0 K EI + 5 4 2 ? 2 ,1 1 P 0 |< E 1.4 0+542 72 >. .1. 1 


:: HIES: 

r 




23401 

POKE1S79, 

233 ;i POKE .1.884 ... 3 



2350 

POKE 1.8794 

54272,11 ;POKE 1 

884-i-04 27 

2 ,- 1 

2368 

REM.BUI!... 

DING TWO-. 



2:370 

FOR 1 ::::: 1 929 

TO 1933 : POKE I1 

60 


2380 

POKE I+542 

7211 he:: SIT 



23.98 

POKE 1839,. 

160 :: POKE 1889+5 

4272, ]. 1 


24001 

POKE 1890 

160 ::POKE! 1890+5 

4272 , J. 1 


24 10 

REM—0IL 

DRUMS. 



2420 

FOR I1939 

TO 1943:POKE I , S 

.1. 


2430 

POKE I + 542 

72,. 1 1 .1 HE SI T 



2440 

F OR I ::::: 1 900 

TO 1902:POKE I ,E 

1 


2450 

POKE 19-542 

72,11 : HE SIT 



24601 

REM.STHR 

s. 



2470 

FOP ] 1 TOO 

0 



2430 

P= 31 NT < PHD 

I 1> *560 > 



2490 

POKE: 1 064 + P 46 : POKE 1064+ 

54272+P, 

1 

2500 

HE SIT 




2510 

RETURN 




25201 

REM..BE 

... FOR M7C J O'-r'S 

T ICK.. 


2530 

DOTH126,1 

73,20,3,141,29 

, 1 9 2 , 1 F 3 

, 21 

2 5.4 0 

DPT Ft 3,1 4 1 

,30,192,169,71 

, 1 4 J. , 20 , 

3 

,3550 

DOT FI 1 6 S' , 1 

92 ,. 1 4 1,2 1,3 , SB 

,96,120, 

173 

2560 

DOT 02S'1 S' 

2 ,141,20,3,173 

, 30 , :i. 92 , 

1 4 1 

25 76 

t'l-TT H2 1 ,. 3 

38,96 1 73,27 1 

32,205' ,. .1 

6 

25130 

ORTH 1 92 ,. 2 

40,3,7 F;, 65,133 

,. i 69 ,- 2515 


2590 

DFiTTi 1 4 1 ,. 2 

7 , 1 S'2,162,0,1 6 

3,0 , 135 ,. 

2 

2600 

OFFER SI 201 

11,28,192,1 69 , 

4 ,. 1 53 ,. 


5 c. 10 

OH 1 H22U 1 

35,0,220,72,17 

13,28,1 92 


2820 

DATE! 153 ,2 

,-22®, 1 89,8 , ]. 92 

, 2511,21 , 

192 

2030 

DOTH 1 89 9 

j. 92,3:513,22,1 9 

2,144 , If, 8 


4 0 

DRTFl 1 89 8 

, 192, 157,21,1.9 

218 9 S 

192 
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2658 D FIT hi 1 57 22: , 1 92,104,74 72:76,1 62 
2660 DRTR i 92 , 104 74,7'2 ,, 1 76 , 1 3,222,2 1 

2708 DFlThi 1S , 189,1 2 .1.92 , i 57 ,2.1. 192,189 
27 10 DhiThi 1 3 192,1 5:i 7 , r 22 1 92:1 84,7‘4,72,7‘6 
2728 DRTR207 , .1.92 r 104,74 7'2,1 '76 . £i2:54 ,2 :l. 

27413 DRTR221. , 17 , .1.92,189 1 192,2:53 18 
2758 DRTR1 92 144 .1. 8,1 £93,0,1 92 , .1. 57 ,■ 1 7 
2 7'60 Ci hi T hi :i. 9218:9 , .1. , 192,157 ,■ 13192: ,-104 
2770 DRTFi74,72,76 , 1 , 1 93 1 04,7"4,72 ,■ 1 76 
2780 OfiTR 13 22:2: , 1 7 ,192 1 8:3,1 7,192.20 1 

,381 0 DRTR 1 92,144,18 „ .1.89,,4J. 92,157,1 7' 

2820 DR TR 1 £'2 1:39,5 ... 192 , :!. 57 1 8 ... .1.92,104 
2330 DRTR?4,72 ■ 7‘iS . 46,1 93 , .1. 04 74 ,72 1 '76 

23350 DR T'hi 1 047’4,1 76 5,169,1 .1. 5:3 2i5 ,■ 1 92 

2 8'80 Dhi T hi3 5 99 4 :: R IE M * C h i IE C l< S UR * 

2 898 F D F: :t4 918 3 T O 4 9478 
2900 PE HD 7, iiPOKEI ,74 :: CC-:CC" .-,4 
29 1 0 HE771" 

2920 F: IE hi D hi: I FhTOCi”": HEH PP I HI" "CHE Cl< SUM ERROR. " 
2930 RE'TUP7, 

2:940 R IE '■, -.- - F 014 M hi T I 01-1 1. 

2.950 hi C .1. ---0 ; V1 J. 1 5 hi £ 2 > :~:96 : V2:~:90 

2970 hi £ 53 ::::: 1 44 5 V5= i 10 
2988 RETURN 

2990 R E i"1.- F O R M hi 7 10 H 2.- 

3f::i 10 ||£ 3 > ::: ; 36 s '78#:90 s hi £ 4 3 -H :: '0 V4.=60 
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3 0 2 © X L 5 ;> :z 3 & S-‘ 3 — 3 0 
3030 RETURN 

3040 REM.-^FORMAT I OH 3. 

3050 H l > = 0 ; v 1 =60 : R < 2 > ~ 48 £ I’2™90 

307' 0 R < 5 4 19 2 :: V 5 -1 7 0 
30,3T:i RETURN 

0090 REM.MOVE SEFiECHL I GFiT— 

3 .1. 10 0 R S =: F-' E E !<: < 4 S' 1 10 S' > •+•256* F' E E K C 431 7 0 > 

31 10 VS=PEEK<49173> +25S*PEEK<49174> 

3120 HS — I NT < KSR256 > LjS==RtS --256*HiS 

31 3 0 IF' H €• =:: 1 T H E: I T P 0 l< E V + 1S ,,P E E K < V + 16 > 0 R 6 5 i; G 0 T 0 31 5 0 
3140 F'OKEV t 1 iS PEEK < '•,'■+■ 1 6 > FH-ID1 90 
3 ]. 50 F'OKEV-i-12L6 : P0KEV +-13VO 

3160 REM-.-FIRE BUTTON. 

3170 POKE49177,0 
3 13 0 F' B 2 =: P E E K < 4 S' 1 7 7 > 

3190 I FFB2== 1T HEIN GO SUE! 3210 REM I- I RE 
3200 RETURN 

32.1.0 REM..FI RE ROUT I HE-.. 

3220 POKE < V+30> ,0 # ITEM RESET COLL. REGISTER 
32:30 i,.U:=L i0• i-12 

3240 j: F L 0 :>255 "T H E N P 0 K E V + 16 F' E El< ■:! V '•+• 16 > 0 R1 s L ©=L. ©-255 
3260 POKEV+21 PVOR1 

3 27 0 F' 01< E V L. O ; F' 0 K E V + 1 , V 6 + 1 1 s F 0 R I =-1 T020 I T E R T 
32:£: 0 G 0 S U B 3 3 30 

3290 POKE T V+2 1 > RVhNO L 255 - < PEEK C V + 30> FIND63 > > 

3:000 IFPEEK < V+21 > <:PVTHEN , t , S=:VS+ 100 : PR I ITTTFIB < 6 > CFTFM" T 
14 5 > ; ' 1 V 0 1 . J R S C 0 R E '' V S :: C - C -■ 5 
331 © I F C COTHETIC- 1 
332© RETURN 

3330 REM-.SOUND EFFECT #2.- 

335© POKES+24 , r 15 
336© POKES+6 128 
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3 EET'Gi 

POKE EE 

4 4 r L 29 

338 0 

pokes: 

, 75 FT H FE S i- 

3 3:30 

POF- E - 

i5,131 

: 4 0 Gi 

FOE F 

1 5TO0STEP - 

:• i 1 Gi 

FOJKEPE: 

HE PI T 

-i- 24 1 


3436 RETURN 

3 4 4 6 R E 14. G R 0 U H D fI T T i- : ! C l< .- . 

34- 50 P 0 K E V f ■ 1 5,1 3 2 : R IE 14 S E T V C 0 0 R D 

34 60 F ;;, 0KE: V+ 1 6 PEEK < V-i-1 6 > AND X 27 

3 4 7 0 Fi ~ h 4-1 ;; ij hi H Gi Ci T034 & 0..3 3 2 035 6 0 3 & 1 0:3 6 5Gi ,3; 7 00 3 7 
■4G:< , 37303850 
34S0 GO3UB3320 

3 4 30 P O l< E V i- I 4,2 0 :: P O l< E V -i- 2 1 , F' E E K < V + 2 1 > O R 1 2 3 * F 0 EI := 1 I" 3 
70 :i H E tI T 

3 56 0 P O K EE V+1 , P E E l< <E V +• 2.1. > f :: l H D1 2 7 
3 51 Gi G 0 3 i J B4020 :: G 0 T03310 
3520 GQSUB332© 

3 5 30 P 0K El V 4-1 4 ,9 2 s P O l< EE V + 2 :l. f :: ' EE E K E V EE: 1 E ! O R .1.2 8 :: F 014 I := 1 T 0 
70 ; HE EFT 

354 0 P 0 KIEE V 4 21,. P EE EEK 4 V + 2 14 fl H D 12 7 

35 5 Ci Gi O S El EE 4020 s G 0 T033 1 0 
:EE560 uOSUB39EE:Gi 

3578 POKE 1 4 1 32: :: F : '0KE7-i-2 1 ,• PEEK >: V-i-2.1. :■ OR 12 EE :: FOR 1 - 1 T 
070 s ME EFT 

3580 FOR I ]. 91 3 TO 1 92 1 s POKE I , E52 : POE E I : -4G:i , 'EE 2: :: HE XT 
3 5 3Gi F' 0 K EE V -i- 2:1 , P IEE IEE K 4 V4 2 3 E’ Ft H D1 2 7 
360Gi 1 4 iSUB4Gi2£i EEi. 1 I 0:1 9 J 0 

36 j. 0 EiO'E-.l i IEE EE.32G 1 

e-EE.EeO I'-'i.n.'EV i Pi .: r E'. ; .:'Pul ElEE'.’i- E: ,i , PE EE i ■ v't 21 'Upi28::FuE j. :: ;| | 


3 EE 3 0 P 0 K IEE V -i- 21 , F :: ' IEE IEE K E V -i 2:1 E- 14 HD 1 EE: F 
EE r 4 iE i i 4 f i' E. i .1 EE 4 i : ,E: Gi 0 .4 1 T ij 3 9 j. E; 

:3S50 i ■ EH 1 : 39 ..E' - 

3660 F : 'C<I- FE V i i 4 ..44 P nE! .4+Ll , I 'EE IE I- '■ : . :| uEip :! uE ::FuF I - i P i 
70 i: HEEET 

3670 F O FE: 1 3. iEE E2 9 "\ O :l 30 3 8 f IEE P 4 £i;; f-' O l< EE I , E E 2 ;; F : ’ O l< IEE I 1 ,. 3 EE: I0 F 
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e: 

I 4 1 

8 2 

HE 


T 












3 

680 

F'OK 

EV 

-I- 

2 

1 

PEE 

:k: < V +2 

1 > 

FlMD 

127 







690 

GO 3 

lie:; 

4 

0 

2 

0 s GC 

I'T'0391 

01 








o' 

700 

GOS 

UB 


3 

,::1 

0 











710 

POK 

EV 

+ 

i 

4 

1 ©8 

: POKE 

V+- 

2 . 1 . 

PEEK 

V 

21 

> OR 

:l 28 :: F 

OR 

0 

78 : 

NEXT 















3 

r’oM 

POK 

IE V 


7 

1 

, PEIE 

i< < V+2 

1 > 

14 HD 

127 







730 

008 

UB 

4 

0 

2 ! 

0 2 GO 

H089 1 

01 








3 

740 

GOS 

LIE: 

3 

5* 

,:*2 

0 











758 

F'OK 

EV 

•+• 

i 

4 

2201 

:POKE 

v+ 

21 , 

PEEK < 

v+ 

21 

of: 

: 1 2:3 s p 

OR 

0 

70 si 

NEXT 
















760 

FOR 

I = 

i 

3 


9 TO 1 

933 ;;P 

OK 

EI , 

32 s PC 

IKE 

I ~ 

40 

32 sHE 

XT 

3 

770 

POK 

EV 


2 

1 

, PEE 

K < V+2 

1 > 

FiHD 

127 







780 

GOS 

IJB 

4 

0 

cl 

0 GO 

T0391 

01 









790 

GOS 

U13 


3 

2 ! 

0 










o' 

800 

F'OK 

EV 

+ 

i 

4 

.»• 3 7 2 

F'OK EE V 

+ 1 

6 P 

EEK •: V 

'+1 

6 . 

ORl 

S! 


3 

81 0 

POK 

EV 

4 

2 

1 

, F'EE 

l< < v +2 

1 > 

of;: i 

28 : PC 

|RI 

= i 

TO 7 

'0 ;; HEX 

T 


820 

FOR 

I™ 

i 

3 

o 

9 TO 1 

943 sP 

OK 

EI 

32 :;PC 

IKE 

i - 

48 

32 sHE 

:-tt 


8 90 

POK 

EV 

4 

2 

i 

-PEE 

|< < V+2 

i > 

FiHD 

127 







840 

008; 

IJB 

4 

0 

2 

0 2 GO 

TO 3 91 

0 









850 

HUS 

UB 


9 

2 

0 










• “! 

860 

POK 

EV 

-I- 

i 

4 

, 1 56 

;; POKE 

v+ 

21 , 

PEEK c 

V + 

21 

> of; 

:128 ;:F 

OFi 

o 

200 

n HEX 

1 " 














S 

8 70 

F OF 

I ::::: 

1 

9 

7 

2 101 

924 ;; F' 

ok: 

EI , 

32 ;; F'O 

IKE 

I ~ 

40 , 

32 sHE 

XT 

3 

880 

POK 

EV 

+- 


i 

, F'EE 

K < V+2 

i > 

FiHD 

127 







890 

GO S 

UB 

4 

0 


0 











900 

EH=~ 

1 














o:« 

•4 1 0 

RET 

UR 

N 














920 

REM 


~ 



UUHD 

EFFE 

CT 


— 






3 

930 

S~:!5 

42 

r 














940 

POK 

E S 

+ 

cr 

•-.* 

r 

36 2 1 - ' 

OKES+ 

4 

5.7 

POKES 

:+2 

4 

1 5 




950 

POK 

ES 

•4 

Si 

r 

1 28 











960 

FOR 

I 

!::« 

0 

0 

00 1 ij 

]. 4000 

ST 

EP. 

500 







970 

FI F ■■■■= 

I H 

T 

F 

I 

7 2 

> :LF = 

I - 

256 

IF HI- 







980 

POK 

ES 


L 

F 

: POK 

ES +1 

HP 








3 

990 

HEX 

T 
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4000 POKES+24 ,0 
4010 RETURN 

4020 REM.ENF :: 'UEiSIOH... 

4030 P D K E: S+4,1 2 9 : F' 01< E 3 , 1 2 7 ; F :: ' 0 K EF S ■+■ 1 ... 5 

4040 EOF? I e 1. 5 TO Li STEF' - . 05 

4050 POKES+ 24,. I 

4060 MENT 

4070 RETURN 

4080 END 

40:30 RE FT--.FLARES. 

4 10 0 G 0 S U E: 3 9 2 0 s R E M S 0 U N D 
4 .1. 1 0 F L. =: F L 1 : IF F L. < 0 T H EE H F L ==•. 0 
4120 FOR 1 = 1 TO 10 

4 13 0 P 01< EE 5 3281 6 F 0 R J == 1 J 050 i: N EE N T 
4 14 0 P 0 K E: 5 328 X , X : F 0 R J == 1Tp 5 0 N E N T 
4150 KENT 
4160 POKE53281,0 

4 1 70 PR J! NI TRE < 25 > CURT C 1 4-'5 > " FLARES " ;i FL. 
4180 RETURN 

4 190 REM.-.DfiTFl FOR FTFR ENP. 

4280 DR TIER , 0 ,0,0,0,0 ... 0,1 6 ... 0,0 .. 8 ,. 0 4 16 
4 2' 10 U ! :: i 11403 , 2 64 1 , r 56 , 128 , 12 255 ., 1 44 
'•■1220 DfiTFl 1 238 .- 40,5,1 5p. 0 , .1. 1 , 1 2 1 , 0 1 
4230 DfiTFl 183 ., 0 ... 25 2 14 96 ,• 0,236 , -18,6,24 
424G DfiTFl 1 52 3 38 0S ,• 5 1 0 0 36,1 2Si0 
4250 D fi T fi 6 4 ... 6... 0... 0 0 ... 0 0 0 

4260 REM.-.DfiTFl FOR LEFT 3 ON E'ER-. 

'4270 DAT 140 0 0 , 0 , Fl 0 0 01 0 01 ... 0 0 0 ,. 0 
4 280 D14 T fi 1 4 ., 0 ... 0 ... 1 4 ., 0... 0,3 0 ... 1 5 ,25 5 ... 2.5 4 

4300 Dl4Tfi.2SF5 , 1 28 ... 3,252 ... 0 ... 0 ... 254-... 0 ... 0 „ 63 
431 0 DR T RFi... 0 ... 0 ... 0 ... 0... 0 ... 0 ,. 0i... 0... 0 ... @ 

4320 DATA8,0... 0... 0... 0 0 .„ 0... 0... 0... 0 ,. 0 

4330 REM--DfiTFl FOR RIGHT BOMBEFE-. 

43401 DFITI40,0... 0... 0 0... 0 0 ,. 0 , i-Ei ,. 0 ,. 0... £i 
4350 DfiTFl 112,0... 01 12,0 ,8 120,0... 8... 127 
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4 37' @ D R T ft 1.27,1 , 2 5 525 40& 3 , 1 S 2... 0 , 
4380 DI-ITR00 252 
4390 DElTflU , 0,0 , 0, 0,0 0 ,0 ,0 10 0 
4400 DAT ft 0 , 0 , 0 0 , 0 , 0 , 0 , 0 0 , 0 0 

4 4 10 R E M.-.-.D f : l T ft F 0 R S E ft R C H!.... 10 H T. 

4428 DAT 140 , 0 , 0 , 0, 1 26 ,© . 1 . , 2'SS128? 
4 4 30 D R T ft 2 24 , :!. 5,2 55,240 31 2 ft 5,2 ' :: l- 8 

4 4 ft 0 D R T fl 12 7', 25 5,2 ft 4,12 7', 2 5 ft 254 6 


4460 

DRTR25263 , 7 

5 5., 2 ft 2, 31 .,255., 3:48 

4470 

DRTR255 .,248 , 

15,255.,240,7,255 , 

4480 

C J Fl T13255,128 , 

0 , 126 , 0 , 0,0 , 0 , 0 , 0 

4480 

REM- . DflTR 

F : 'DR GROUND ERR . 

4 ft 0 0 

DRTfi©0 , 0,0 , 

0,0,0,8,0,0,24 ,0 , 

4510 

DR71-10...0,48 ,t 

, 0 , 1 70 , 0 , 0 ,68 0 , 8 

4528 

DflTR0 ., 41 76 , 

;!. 92 ,• 6 ,• 3 .66 , .1.23 , 3 , 1 

4530 

DRi ft 188 , 0 , 5 1 

,0,5,60,0,1 , 154,1 

4540 

DflTR 1 24 ., 0 , 0 

j. 86 , 0 , 0 , 92 , 0 , 0 , 56 

■4550 

DRTH0 , 8 , 60 , k 

, 0 , 24 , 0 , 0 



2241 
0 


024 
, 1 1 0 
Oft 





176 


Flip Flap 



Flip Flap is an original game based on an old idea. Can you remember those games you used to 
play in the arcades before Space Invaders came along'’ You can't ??? ... Well, there was a game 
where you drop a coin in the top of a box and it would gradually work its way down to the 
bottom, randomly bouncing off a grid of pins, determining which way the coin would travel and once 
at the bottom ... I'm afraid that 1 am completely oblivious to Its aim, but it seemed a good 
foundation for a game. So Flip Flap was born. 

The idea of this game is more apparent. You have a continuously bouncing ball at the top of 
the screen and when this reaches one side it rebounds the other way. At this point you can, at any 
time, press a 'letter' key on the keyboard and the ball will start to drop down the screen. 

As the ball drops, it collides with pins that are placed down the screen, and each time it hits a 
pin. the pin gets knocked in and you score some points, with a bonus if you can hit ten pins on 
each drop (not impossible). As the game progresses so it gets a little harder. It you hit a pin that 
has already been knocked in you score no points. Sorry! 

The game ends when you have dropped 25 balls (or sooner if you are a bad loser! ). 
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1000 REM *** FLIP FLAP *** 

1010 G0SUB1F60:REM TITLE 

1020 GO SUE: 1620 ; REM DRAW SCREEN 

1030 8-54272:REM START OF 'SID" CHIP 

.1 040 I- 0 RI - 0 T024 : P 0 K E S +1 0 : N ENT: P F M C ] E A P 

1050 POKES+5,8:POKES+22,74:POKES+23,1 

10i 6 0 P O K E S424,79 

1.070 REM *** SET UP VARIABLES .*** 

1880 X=1sV-1:D=1sSC—1024:C0=55296 
1090 REM *** MAIN LOOP *** 

1 10 0 R EM * * 4 D R 0 P R 0IJTIHE 44* 

1110 OX-X :OV-V sREM OLD POS. X ,fc V 

1J. 20 HT.::--0i : IFB-25THEN1460 

1.130 X=X+D : IFX=00RX>-3.9THEND=-D 

1 J. 4 0 P O l< E S C+0 X ■+• 4 0 * 0 V3 2 

1 150 POKECO+X+404V., 1 :POKESC+X+40*V,81 

1.160 GET AT :: I FAT- " " THEN 1 1 .10 

1170 RE M * * * M AIN R0U TINE * ** 

1180 B-B+l 


11 

90 

OX—X s OV-V : V-'r 

'+1 




12 

:00 

IFV>23THENG0S 

TIE: 17 

40 sGOT 

01.1. 1 

0 

12 

1 e 

PR1NTCHRTC19 > 

CHR* 

i.‘ 3 ';» 11 |~; 

ORE : 

"SE 

12 

:2G 

PRIHTCHRT 19> 

TAB':: 

15 >"DR 

OPS !! 

"B 

12 

30i 

I FSE>H ITHENI-II 

= SE 




12 

40 

PRINT CURT <19::. 

TAB < 

30>"HI 

GH : " 

HI 

12 

50 

P—PEEK < SC+X -i-4 

0 * V > 




1 2 

60 

IFP-930RP-46T 

HENZ 

-RICK .1. 

) :G0 

SUB 1320 

12 

70 

IFP-93THENSE- 

SE+1 




1 2 

80 

POKESC+OX+40* 

OV ,3 




1 2 

90 

P 0 K E C 0 •+■ X+4 0 * V 

,1 : P 

OKESC-i- 

X+40: 

*V ,.81 

1 3 

00 

GOT01. .190 sREfl 

END 

LOOp 



13 

1 0 

REM *** CHANG 

E DI 

RECTI ON **: 


13 

20 

F' 0K E C 0 -1- X ■+• 4 0 *: V 

, 1 :F'i 

OKESC+: 

'■'i •+■ ,: 'l- LI • 

*V , 46 

1 3 

30 

X-OX : V0'*!*■ 





13 

40 

IF Z<5THENX-X 

-1 :: II 

-X=0THI 

nr NX-: 

3 9 

13! 

50 

I FZ> „ 5THENX-X' 

+ 1 ; IFX-39TI 

4ENX: 

= 0 
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1 360 I FP =:46THEHG03UIS 1430 s REE'S" URN 
1 3 ? 0 p 0 K E S I- 0 :3 $ t F' 0 K E 3 + 1 , 1 H T 6 R N D l 1 > * 5 0 •+■ 3 > 
1 389 P O l< E S -I- 4 .. 12 & :: F 0 R "F - 1T 0 20 :: N E X T 


13:! 

3@ 

HT444T+ 1 






14( 

30 

I l r HT== 10THE! 

4SETOSE !-1N 

1" RND <: 

1 7 

*3> 

II HI":: 

14: 

1 0 

POKES+ 4,12: 

3 :: RETURN 





14; 

20 

REN M* l-'.IH 

OOF'S ! *■:$$ 





14: 

30 

POKES + 030 

nPQKES+1, 

50 




14- 

40 

POKES+4 32 

: FOFEt'iifl. TO 

i20 :: HEN 

1" 



14' 

50 

POKE S3-4,33 

RETURN 





14! 

50 

REM w.m. SO 

RRV! ORME 

: OVER 

* '■¥ 

* 


14' 

70 

FORT*IT025 

F'R I H'T'CHF 

:*< 13>C 

HR 

* 1 

r* “ 

14: 

00 

PE INTCHR* ■:: 

1 57' > CHR* 6 

148> : P 

OK 

E21 

:3 ,■ 11 

14: 

90 

HENTT 






1 5 

00 

F OKES+4O :: 

POKES+5S 

: 1 : POKE 

8+ 

«b 3 

40 

15 

10 

PR I NT CURT': 

1 7 > CHR*C1 

7 > CHR* 

■:: 1 

77' 


15 

20 

F'R I NTT RE: < 1 

1 > " --SORRL 

•'! GRME 

0 

VER 

■ 11 

15 

30 

POKES+4 ,.33 

;F0RT=1TC 

i 1 00 




15 

40 

R= I NT < FIND C 

T I > 4-: 10+ 1 :: 

■ : POKES 


:30... 

R 

15 

50 

POKES+1,1+ 

T'-i-R : POKES 

;;280 




15 

60 

FORK:-. 1 TO20 

i sNEXT 





15 

70 

NEXTT;POKE 

:S + 4 . O r, l-'OF 

:’E53280 

1 0 

f 


15 

80 

F'R I! FTC HR# < 

17' > TflES 6: 

' " 




1 5 

90 

PRINT".PRE 

:ss H KEV 

TO F'L 

.R’t 

1 RC 

i M.!. N 

1 6 

00 

GETfl* s I F'R4 

oP' "THEN It 

7 00 




:(. 6 

1 0 

SE—0:B=0:G 

SOT 01010 :• F 

GEM PLRV 

RGfl IN 

1 6 

■20 

REM DF 

if IN SCRE'EI' 

■i w* 




16 

30 

PRINTCHR*< 

: 1 47 > 





16 

:46 

POKE53280, 

. 0 5 poke: 5 37 

23 1 ,8 




16 

■50 

PR I HTCHR*!' 

: i ? ::■ 





16 

;S0 

PR I N'TCHR* •: 

: :i.58> 5 for" 

T1 TO 5 




16 

;?0 

PRINT" | I 

111! 

I 1 1 

i * 

• .. 


16 

;80 

PRINT" I I 

lilt 

1 ! 1 

I ' 



16 

;3@ 

PRINT" | 

I 1 1 i ! 

1 1 ! 

r 

‘ ” 


17 

•00 

PRINT" 1 

! 1 1 ! 1 

1 1 1 

i' 

1 


17 

’10 

NEXT 






17 

:, 20 

RETURN 












FLIP FLAP 179 


1 730 

REM 

POKE SPACE 

TTT 


1740 

PQKESC+O 

X.+40*09 32 



.1750 

V=1 :X=1 

RETURN 



1768 

REM 

TITLE PAGE 

H' - - :*!*: H 1 : 


1 '778 

PR IMICHR 

$ < 147> CHRT < 

156 > 


1 7SU 

POKES328 

0 , r 0 ;; POKE532 

81, 0 


1 7 30 

PRINTTAB 

i; 5 > " 


11 

1800 

PR I NTT RE! 

<; 5 > " f--.. 



1810 

PRIHTTAB 

<5>" | f- 


- |M 

1820 

PRIHTTAB 

< 5 > " | | ttlli® 

o o 

GOO !" 

1830 

PRI NTTAB 

< 5 >" | 1 m 

Ci 0 

O O |" 

1840 

PRI NTTAB 

5 > " | | «• 

0 o 

GOO I" 

1850 

pr i ht thb 

< 5 > " | | * 

o o 

O |" 

1860 

PRI NTTAB 

<5>" | | • 

GOO O 

G |" 

1870 

PRIHTTAB 

< 5 " xj 

•1-ntnmrontrramn 

mmninnmnnromwiniii 

1 " 

iimtttmrammi imitn_. J 

1880 

PR IHTTAB 

C17V 1 H 

1890 

PR INTTHB 

(17)" |x 



1 900 

PRIHTTAB 

( 1 7 >" ! r- 


~ - T 

1910 

PRIHTTAB 

( 17>" | | ®tt® 

Ci 

j ooo r 

1 800 

PR1HTTAB 

:.17>" | | © 

o 0 

o 0 O I 1 

1 930 

FT:: I NT TAB 

(17 " | | *i# 

O Ci 

DO OOO I 1 

1 940 

PR IHTTAB 

■ 1 7 > " | | # 

o o 

O O | 1 

1950 

PRIHTTAB 

; 1 7 > " | | # 

GOO Ci 

o o r 

1960 

PRIHTTAB 

::i7>" xj _ 


. 1* 

1 970 

PR IHTCHR- 

r 1 7 > CHRT < 1 

7 > 


1 980 

PRIHTTAB 

( 8 >"-PRESS 

3 KEV 

TO PLAV-' 

1990 

GE"TAT I FAT= " "THEN 19 

7:10 


2000 

RETURN 




























10 00 REM if4* LASER SPELL fff 
1018 F' O l< E532S 0... 8 ;; p u K E5 32' 8,1 , 0 
1028 DI ML#< 20 > 

1030 F 0 RI = l T 020 s |2 E fl D L $ > I > s> 3E 2 T 
1040 3=54272:REM SOUND 
1050 F r 012 3: - 0 T 02 4 : F : ’ 0 K E 3 ■+ I 0 . |-,j f v f 
I860 POKES +2 4,14 

1070 F‘ 01< E 3 +• 5... 31 : P 0 i< E S + 6 , 2 4 8 ; G 0 s l.i El 1,33 20 
1080 PR I NIC HR ^ < 1 4 7 > 

1090 P0KE53288... 0 s POKE: 532® 1 .. 8 
1100 REM 4 ff 3 CF? El EH,■■■’COL. OR; BASE fff 
1 110 3 C -1 £i 2 4 : C O =- 5 5 2 9 6 
1 120 2 = 13 Q—•- 3 ; J~0 
1 130 F^INTCRND-:.' 1 >f20> 

1 140 !•• i t i.. 4- • F > 

1 150 B$=" ,-l., " ;; REM BASE 
1 160 M:=::L.EH-U4:| > 

1 170 PR I NT'CHR* 19 >£hr$ ,■; 8 |,j : j. 

1 1 80 POKE7:31 ,. 23 : P0KE732, 0 ; 8VS65520 
1 .1.9 0 F 0 R 3: 3. T040 ;; P 12 IN T 1!! 1 « - N E 2 T 

1200 REM ff* MAIN LOOP 4 ff 
1210 P:=PEEK'- 56320 > ; REM PORT 2 
1220 I F p = 3 2 3 T H E M 2=2-1 : IF 3 < 01 ' 13 E N 2 = 0 
1 230 IF Pz~ ]. . 1 .9THEN2:-ON -1 j I P>T;P35THEN2 = 35 
1240 IFPs 111 THEMOOSUE 1 336 

1 250 IF...T-WTHENGOSUE31 670 GOTO 1 080 5 F2EM E'ND GOME 
1 260 POT E ?8 1,22 : P0KE732 ,2 ;; 3VS65520 
1270 PRINT” 1 ' ." E : ■$ " 11 " 

. 1 . 280 Q-Q+ 3 

1 290 I FCT=0THEMGOSUB 1 430 ; F'EM FT 0 T LETTER 
■1 300 I F 0>5OTHFT!G0SUB1 480 s FiEM CLR' L.ETT EP 
131G GOTOl 210 

1320 ITEM fff F l RE LASER 0:OLT 
133© 130=24 2 s! ::: OF: .1 = 1T020 ; Q = Q +1 
1 34 0 I F Q > 5 0 T' H E." N G 0 3 U E31 4 8 O » R; ;f:3 Q 

1350 Poke: .- :, s 1, 22.1 s pokepet, eo:30365520 

Listing 0 ontinusr! nex * page 
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1360 PR I HI" I" 

1370 IFPEEK C SC+R > = 93 THEHGQSUB 1 b 10 :: I =20 
1 3 S 0 P 0 hi El 7 S .1. , 2 2 -• I sO K E 7 S 2 , B 0 : S V 3 6 5 520 
1390 PRINT" " : NEE NT 
1408 IFR=0THEMQ=«ii 
1410 RETURN 

1420 REM *** PLOT RHD LETTER 
1430 R— 11 I T < RND C 1 :> *5:20+120 > 

1440 L = I NIL RND < 1 >*26+1 > 

3 .4 5 0 p O |< E C O+R7 : P 0 K E S C ■+ R ,• L. 

1460 Q=0sRETURN 

1470 REN *** CL.EFIR RHD LETTER *** 

1 -I'SO POKESC-i-R r 32 
14301 Q::::: —• .1 S RETURN 
1500 REN *** LETTER HIT *** 

1510 F’OKES+4 ,33 

1 520 P 0 hi E S C -I- R , 4 6 :: P 0 hi EE S C + R S 6 

1 530 P O hi E S , 280 s P U K E S +11 0 0 

1540 F 0 R T = 1T050 « N E X T : P 0 hi E S C + R ,■ 3 2 

1550 POKES+ 4 ,-0 

1 568 F O R T := 1T 0 L... E N < W $ 

1 5 7 0 I F L = P E E hi < S C •+• T - 1 > T H E M G 0 S U B 1 6 1 0 
1580 HENT 
1530 RETURN 

1600 REM *** INVERT LETTER *** 

1610 REM 

1620 POKESC+T.1.PEEK < SC+T- 1 > ■+■ 12S 

1630 T--LEH < 14:f > 

1640 J:-: J+ 1 
1650 RETURN 

1660 REM *** END GAME ROUTINE *** 

1670 PRINTCHET<147 > 

168® POhiES + 4 r 33 
1690 FORT=10TO50 
17'O0 POKES .r 100 s POKES+ 1 T 
3 ?' 3 0 P 0 hi E646 IN T < R H D < 1 > * 15 > 

1720 PRINTTflB<7> "PRESS fl KEV TO PL.fiV flGfiXN" :NENT ! 










LASER SPELL 183 


11 

i ::, 30 

POKES 

h-4 0 




11 

740 

Ol£ ! Hit 

■ : IFfl$=" " 

TH 

El-11740 


11 

“'50 

RETUR 

: l -1 




11 

760 

REM st 

WORD 

DA 

TA 


11 

: '?0 

DATA " 

TELEVISI 

OH 

" , " VEGETAE’L 

.E" 

11 

::, S0 

DflTH " 

COMMODOR 

E" 

,"COMPUTER" 


11 

“'90 

ORTH" 

ALUMIHIU 

M " 

" DICT I OMAR 

:V" 

.1 i 

300 

DflTH " 

PENCIL " 

i» i-;- 

I DEBOARD" 


IE 

310 

DATA" 

JOVSTICK 

H 

"GUITAR" 


IE 

:J2© 

DflTH 11 

KEVBOflRD 

ii 

"SPAGHETTI" 


IE 

330 

DATA " 

TRANS I ST 

OR 

" ,• " SPACESHI 

P" 

1 E 

340 

DATA " 

CHI? I STM A 

C* 11 

,■ "BIRTHDAV" 


1 E 

>*50 

DATA " 

F’RUUK'HM " 

, "1 

ARCADE" 


1 E 

3E30 

DflTH " 

CHAIR"," 

B11 

OVCL..E " 





184 


Track Racer 




In Track Racer you have to travel down a dirt track that gradually gets narrower. Each time you 
score a hundred points the width of the track is reduced by one character space. If you crash into 
one of the posts along the edge your car will explode into an array of color. 

The car is moved from side to side using the joystick; but be careful because unless you steer 
the other way you will continue to drift in towards the kerb! 

This program makes use of a short routine that causes the screen to scroll downwards. This is 
slightly more difficult than causing the screen to scroll up but the visual effect is well worth the 
extra effort required. 
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1 

. 0 

100 

REM *** 

TRAC 

:K RACER 




1 

0 

10 

PR 114 T C 

;HF 

:$ < 14 

7 > 




1 

0 

20 

POKES:: 

:• “1 c 

10 , 0 : 

POKES3281 ,0 




1 

0 

30 

GOSUB1 

»■* cl 

:0 x RE 

M TITLE 




1 

0 

40i 

REM m 


READ 

1 SPRITE DATA * 

i+iHi 



1 

0 

50 

FOR I=0 

u c 

16 2 s R 

EAD,T s P0KE832+1 

J X 

HE 

NT 

1 

0! 

60 

FORI =2 

iTC 

i62 : R 

EADJ 5 POKE836+I 

J 

14 E 

XT 

1 

01 

70 

REM m 


SET 

UP SPRITES *** 




1 

0 

80 

POKE20 

140 

1 13 :: 

VC®53243 : POKE Vi 

Ch-2 

1 

1 

1 

l : ;1 

30 

POKE20 

141 

14 :: 

POKEVC+408 




1 

.1. 

00 

POKEVC: 

■+• -2* 

3,1 4 

:P0KEVC+23 ,-3 :pi 

DICE 

VC 

+ 29 

1 

1 

10 

POKEVC 

+ 0 

.r 1 5Q 

s POKE VC +1 .. ISO 




1 

1. 

20 

POKEVC: 

-i-2 

■“> *~| 





1 

1 

30 

REM m 


SET 

UP SOUND He** 




1 

1 

40 

3=5427 

cl n 

FORI 

=0T024x POKE8+1 

0 x 1 

4E; 

XT 

:l 

13 

50 

POKES+ 

5 . r 

3 1 ;; P 

U K fc. 8+6 2 4 Ci 




1 

:l. 1 

60 

POKES+ 

24 

15 





.1. 

r 

70 

L=12 x X 

= 1 

50 X W: 

= 12 




1 

u 

30 

POKE64 

S r 

14 





1 

1 - 

30 

PRINIC 

HR 

t < 14' 

7 3 x SE=0 




1 

2i 

301 

FORI-1 

TO; 

20 






1 2 1 0 F'RINTTABCL3 1 'If; 11 SPC•:!14> "if:" 

.1. 220 NEXT : POKEVC+31 0 
1 230 P 0 K E S +■ 4 ,3 3 x F : ' 0 K E S10 0 x p O K E S + 1 4 
1 240 P R 1 N T C H R $ < 1 3 3 C H R $ < 1 5 y > 11 S C O R E x ’ 1 
.1. 250 PR IN f CURT <1 1 3 3 TAB C 28 3 " FI IGH x " 
1260 REM MAIN LOOP $;+•:$ 

1270 DI R = 1 x IF-RND < 1 > <. 5 THE HD I R=2 

12:8 8 S £:® S E +1 : Q =Q + 1 

1230 IFDIR~1THEHL=L-1 

1 300 I FIX 1 0THEML..1 

1 310 I FD I R = 2THEHL.=L+1 

1320 IF L. :> 2 0 T H El hi L = L. — 1 

1330 P RIH T C H R $ < 13 3 C F-l R $ < 17 > ; 

1:34 0 F' R114 T C FI R :$ <| 15 7 3 C H R $ < 14 8 > 

1 350 puke 21 s r 1 6@ 
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1360 

PR 1NTTA8 " T "SF'C < 1 

!" ■' 

1 " " 

1 370 

P^PEEK<56320 > 



1386 

IFP=12-3THENZ=1 



1390 

IFP=119THENZ=2 



1 4010 

OHZGOSUB1510,-1530 



1410 

POKEVC+0 X 



1420 

F'R INTCHP4 \ 19 > THE'33 


b. 

1430 

IF S E > l-l IT H E N HI = S E 



1440 

PR 1 lire HR-3' < 19 > TAB (S' 

4 > 

HI 

1450 

IFQ=100THEHW=W~1sQ: 

=01 


1 460 

ifpeeklvc i- 3 i > Find i = 

1 TH 

EN1560 

1 470 

POKEVC+31,0 



1 480 

I FW=8 THENWs: 1 2 



1490 

GOTO 1270 



1 500 

REM *** CAR DIRECT 

I ON 

*** 

1510 

X=X-4:1EEC 10THEHX= 

10 


1520 

RETURN 



1 530 

Xx+4 :: IF X >250T H E N X 

_tnr 

i0 

1540 

RETURN 



1550 

REM CRASH INTO 

ICE 

;rb *** 

1560 

POKE VC+2:1 2 



1570 

P0 KE V C +2.r X s POKEVC •+• 

31 

80 

1580 

FORV=15TO0STEP-.2s 

POK 

L 4-1 

1 590 

POKES+4,.129:POKES+ 

•24, 

« t ( » 

1600 

POKEVC + 37I NT C RND < 

T I ; 

'*15 > 

16 3 8 

F* 0 K E V L- •+* w i ] N1 R N 0 *•. 

t j ; 

• * 15 > 

1620 

NEXT ! POKES+4 0 



1630 

POKEVC +21 ,0 



1640 

REM mW- NEW GAME W-* 


165i3 

PRINT CURT<19> 



1660 

P0KE646,INT <RND <T1 

*;» 4j»; ‘ 

L 5 > 

1 670 

FOR I = 1T04:PR INTCHF 

i $ : 

L7>:HEX 

1680 

PR I NT TAB 7 > "PRESS 

FIF 

•:E " ; 

1 690 

PRINT "TO PLAV A OFF 

i:n" 


1700 

IFPEEK 5632:0 > <> 1 1 : 

LTHEN1650 

1710 

GOTO 1080 



1720 

REM TITLE PAGE 

I 

** 
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1 7’ 30 PR I NTCHE* .1.9 > CHR* < 30 > 

174S F : 'RIHTTRB<7> "< T R ft C !< * " ; 

1750 F'RINT ,I R ft C E R >" 

1760 PRINICHE*<17)CHE*<17> 

1770 F'E' I NT TAB < 5 > "USE JOVSTICK TO 
1780 PR INT"STEEE VOUR CHE" 

1790 F'RI NIT R E3 < 5 > ' 1 fl L. 0 N G T H E S L. IP F' E E V ' 1 * 
1800 PEINT"TRACK. 

1810 PE I NTT RE: < 5 > " BUT WATCH OUT.. " ? 

1820 PEINT"THE TRACK GETS" 

1836 F'RINTTFiB<5> "NARROWER. 

1840 PR I NT CHE* < 17 > CHE* < .1. 7 > CHE* < 17 
1850 PE I NTT'FiB< 9 > "PRESS A KEV TO PL.AV " 

1860 GET'Fl* : I Ffi*= " " THEN 1860 
1870 RETURNsEEM INTO GAME 
1880 EEM *.m SPRITE 8 <CAR> *** 

1890 0A T Fl0248, 0,0,248... 00248, 0 , 5141 
1980 D19TA0,7,2390,5..221,0, 1 ,2200l 
1910 DATA2520.. 1 140,0 , 1 3601 1 16@1 
1920 D fl T A252.. 01... 252.. 0,3... 86... 0,54 .219,96 
1930 DAT' R 55,223,. 96... 63., 87,224 ,54,. 251 ,96 
1 9 40 DAT A 5 A, 2,96,. 7 .,255,. 0., 7 ., 255,0 
1950 REM M* SPRITE .1. CEXPLODE> *m 
19 6 O D ft T A0., 32., 0,273,52,6., 157., 1 93., 1 Hi 4 
1970 D FIT ft 188., 29., 131 , 54., 124., 44., 1 18,249 
1980 Dft 1"Fife’5., 231 ., 242., 31 ,227,178., 78., 8,57 
1990 D A T Fl39., 63., 156., 47., 159., 3G., 73,222., 124 
2000 D ft T A36.. 194., 24 G., 73., 248., 198,19., 253 
201U DOT ft 216 , ?' 1,. 205 .,144., 23 .,15., 36,. 16., 103 
2020 D ft T ft 72., 13., 14 6 ., 80., 0 ., 8 ,144,3,87,32 






188 



Minefield is a game of logic and strategy. You are in control of the mine detector and must destroy 
as many mines as possible in three minutes. Unfortunately, your assistant, Copy-Cat Kenneth 
mirrors your every move. Don't let him stand on a mine or you will both be blown to kingdom 
come! 

To destroy the mines first position the detector over a mine then press the fire button. Each 
mine successfully destroyed scores you 100 points. 


TREAD C A REFULLY ! 1 1 



MINE FIELD 189 


1000 PRINTCHR^C14?) 

1010 GOSUB2570 

1020 G O S U B1S 5 0 ; R E M M/ C C H A R - S HI FT E P 
1030 G0SIJB2150 sREN M/C JOYSTICK 
1040 REM SPRITE NUMBER 0 AND j. 

1050 REM STORED IN CASSETTE BUFFER 
1060 P 0 K E20 40,-13 r, P 0 K E2041 14 

1070 POKE:53281 ,.0 

1080 REM--RANDOM DI ST OF MINES_ 

10.90 REM-READ SPRITE DATA-.-. 


1 1 00 

FOR 1=832 TO 

394 sRtflDfl 


1 1 1 0 

POKE I A :: NEXT 



1 120 

FOR I=896T095 

:S :READFl 


1 1 30 

POKE" I , An NEXT 



1 140 

V=53248 



1 150 

F'0KE'v‘+39. r 2 sRE 

M COL SPR 0 RE 

D 

1 160 

POKEV+40,. 7 sRE 

M COL SPR 1 1414 

ITE 

1 170 

REM - -READ MINE DATA 


1180 

FORI=12504701 

2519:READS 


1.1.90 

POKE I,. A : NEXT 



1 200 

GETfif:IFR$="" 

THEN 1200 


1210 

GET.JT : IFJTO" 

"THEN1210 


1220 

PRINTCHRT<147 

'j 


1 236 

REM—.RANDOM 

DIST OF MINES 

_ 

1240 

FORI=1T040sSC 

= I N'T' < FIND < 1 > #84 

0 

1 250 

IFSC=38ORSONS 

9THENI = I-1 s GOT 

01290 


1260 IFSC/20 1 NT ’■ SC/2 > THEN 1 = 1-1 s GOTO 1290 
1 270 POKE 1104-i-SC , 27 :: POKE 1 104+1+SC28 
1230 POKE:55376+SC5 : P0KE5537S+ 1 +Sf:5 
1290 NEXT 

1300 REM .-JO VST I CK L. IMITS -- 

1310 POKE:49152,24 POKE49153,0 • REM X MIH 
1328 POKE:4915670 : P0KE491 571 :REM X MAN 
1330 F'0KE491606G P0KE491 6 .1. ,0 «REM V MIN 
1340 F' 0 K E4-91642 25 : P 01< E49165 , r 0 ; R E M V M A X 
1350 !“' 01< E491681 12 E M S C R H RAT E 
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1360 SYS49183 :REI1 ENABLE WEDGE 

1 3 7 0 j I $ = 1 ' 000000 ' ! s R E M T IM E R 

1330 R RIH T T R B < 6 > C H R $ < 14 5 > C H R $ < 15 8 > " V 0 U R S C 0 R E 

1 3 9 0 p 0 K E 4 9169 , 2 4 s P 0 K E491 7 0 ,• 0 : R E M IHITI l : i L X 

1 400 F- 0K E 4 91 7' 3 2 2 9 : P 01< E. 4 91 74 ,0 s R E N INITI Fl L V 
1410 POKEV, 24 POKEV+ 1 , 229 ;POKEV+2, 66 : POKEV+16, 
1420 POKEV +3,.50 

1430 P 0 K E V -i- 21 - 3 R E M T U R N 0 H S F ;: ' RIT E S 0 fl H D .1. 
j. 4 4 0 R E M--M fl IN M 0 V E M E N T R 0 U TIH E. . 

14 50 P 01< E V-i- 31 ,0 :: R E H S E. T C 0 L. L. IS10 N R E G 

1460 P R IH T C H R $ < 14 5 ) ; T fl B < 2 3 > " TIM E " M I D $ '■ TI * ,■ 4 . 
GHTT <TI $,2 > 

14 7 0 IF V Fl L T1t > > *■ 3 O 0 T H El N G 0 S U B3070 :: R E Fl E H D R U U 
J 480 X— F'EEK 49169 +2b6#F'EbK < 491 r' 0 1 
1 490 V =: P E E K < 49173 > + 2 56F :: ' E E K L 49174 > 

1500 N-345--X :M=279-V 
1510 H N = 1N T < H 2 2:5 6 > : L. N=N -256* H N 


000 


.1 > s 
I HE 


1520 HXI NT < X256 > : LX--X.25fo* 14X 

1 530 IFXCRGTHEH POKEV-i-16 ,2 sGOTO 1 550 
1540 POKEV+16,.FIX 
1550 POKEV, LX :i POKEV-,- 1 ,V 
1560 P 01< E V -i- 2 , L H :: P 0 K E V+3 , I 'l 

15 7 0 H C *= P E E K < V+31 > i: R E W C O L LIS10 N D T E T E L T 

1530 R E F'l -.I F T H E P E I S II fl H / NIH E C 0 L I... IS1 0 N. 

1590 IF H C — 2 ID R H C=3114 E. H G 01 016 B 0 

1600 REM-.IF FIRE BUTTON PRESSED.- 

1610 I-OKE49 1 77 ,0 
1620 FB2--PEEK< 49177 > 

1630 IFFB201 THEN 1458 

1640 REM-.IF THERE IS DET/MINE COLLISION- 

165,0 I FHCflND 1 = 1THENGOSUB2870 
1660 GOTO1450 


1670 END 

1680 RE F'l--.—F’l I NE/MFlH COLL ISI ON- 

1690 PR I NT CURT *•. 14 71 
1700 REM—FLASH SCREEN— 

1710 FOR I = 1T05 
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r 

:, 20 

G0SUB276* 

,i s! 

7EM FINAL. 

EXPL...OST i 

UN 

.1.730 

NEXT 






IT 

’40 

REM— 

-swr 

r ci 

-1 OFF SF’F 

I TES~~. 


IT 

•’50 

POKE' 

•N-21 

• 0 




IT 

:, 60 

FOE I: 

-1T Of 

:i 

: 'R I NTCHRit 

'S 17> ; ;NEI 

C 

IT 

’70 

PRINTTAB■ 

4 

> "VOU HA'v 

E KILLED 

VOUR 

IT 

"80 

FOE I = 

:: 1 TO; 

si 

: 'E I NTCHRt 

C 17 ) ; sne: 

a 

IT 

’9£i 

PR I NTTAB■ 

i: 

L’> "VOUR £ 

CORE"sVS 


If 

:00 

F'OFT I 

~ i to: 

sF 

: 'R INTCHR4- 

< 17} s sne: 

=:t 

IS 

: 1 0 

PEINTTAB* 

& 

" «<F'RES 

S ANV KE'i 

•' TO 

IS 

!20 

SVS34S 

*208 

RE 

:ii disabl 

E WEDGE 


is 

.3 y 

RUN 1 £ 

120 





is 

•'40 

END 






is 

150 

REM. 

.B,- 

'L 

FOR M,•••'(: 

CHAR-814 IF 

TER- 

1 £ 

60 

POKES 

12 ,4 £ 

; s F 

•0KE56, 48 

sREM LOWE 

TR ME 

if 

'70 

FOR I = 

:S2S1 

'OS 

'50 ; R 

EM-TEMP S 

•TORE 

1 s. 

80 

K’tHU J 


5 REM 

-- 


is. 

90 

AA—Af 

+ J 


s REM--B 

AS IC 


1 s 

00 

POKE 1 

, J 


sREM 

LOADER- 


IS 

1 0 

NEXT 



: REM 

___ 


1 s 

20 

READ.J 



sREM 

-CHECKSUh 


.1 s 

30 

1 FAA< 

>.JTHEh 

PRINT"DA 

TA ERF:OR" 

;END 

1$ 

40 

S't'S < £ 

k'0’ n 

RE 

M -EXECUTE- 


IS 

50 

POKES 

u.'i d 

.«• cl 

8 sREM -p 

JI NT TO F 

AM- 

1360 

DATA 1 

690 

, 1 

4 1 , 14.- 22 

3,1 6.9 - 5 1 ,. 

14 1 

is; 

70 

DATA 1 

, 0 1 

82 

- 0 - .189 - 0 

- 208,157, 

0,48 

13 

80 

DATA 1 

S3, 0 


09.- 1 57 .- 0 

49,189 - £ 

, 210 

1990 

DATA 1 

57.-0 

.*• •- 

0 ... 189,. 0 ,. 

2:11 -157e 

-51 

pFiPiFi 

DATA! 

S3 90 

r C 'l 

12,157,0 

.. 52 -189 - 0 

-213 

28 

1 0 

DATA 1 

570 

.-5 

3, 183,0,4 

314,157 -0 

- 54 

20 

20 

DATA 1 

S3 30 

ci 

15,157,0 


k'4 

20 

30 

DAT A 2 

55.-2 

•38 

,203,173 

- 255,208, 

141 

2040 

DAT A 2 

55.-4 

r 

17 3 ,255,2 0 9,1 41 - 2 

cr cr 

Z.I Z.I 

20 

50 

DAT A 4 

3 , 1 7' 

3 r 

255,210, 

141,255,5 

0 

2060 

DATA.!. 

■p ~» ^ “> 

55 

, 211,141 

- 255 -51 -1 

r‘ %-« 

20 

70 

DATA 2 

55 r 2 

12 

, 141 , 255 

-52,173,2 

55 


SLANT ! ! " 
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20 8 0 D ft I I'i 213141 , 2 55,58 ,• 1 73, 2 55 2 1 4 
2090 DATA 141 25554 1 69 55 1411 0 
2100 DFlTfl 169 4.-141 1 4 220,169281 4 1 
21 10 DflTFl2 4 , 20896 
212 0 R EII - C H E C K S U M 
2130 DflTFl 16246 
2140 RETURN 

2150 REM...M/C JQVSTICK ROUTINE- 

2160 DATA120173, 20 ,• 3,141 ,• 29,192 , 173.21 
2170 DAT A3,141 - 30192169 ,■ 71 ,141,20 ,• 3 
2180 DATA 169,192, 141.-21 - 3.- 88,96,120.- 173 
2190 DATA29,192.- 141 20.- 3.- 173, 30.-1 92 ,■ 141 
2200 DATA21,38896 ,• 173, 27.-19220516 
2210 DATA 192.- 240 - 376.- 65 -193.- 169.- 255 
222© DATA 141,27,192.- 162 ,• 0.- 160.- 0.- 185,2 
2230 DFA"A2'20,14 1 .- 28192.- 169.- 224 .- 153, 2 
2240 DAT A22 0 18 5 0 .- 2207 2,17 3 .- 28 1 92 
2258 DATA 153 .- 2.- 220 - 189,8, 1 92 .- 221 .- 2 1 1 92 

2260 DATA189,9,192,253,22,192,144,18 
2278 DATA 189.- 8 , 192,157,21 .- 192189 , 9 ,192 
2280 D A T A1 5 7,2 2:.- 192 - 104 74 .- 72.- 76 162 
2290 D A T Fl 192,104,74 - 72.- 176.- 13.- 222,21 
2300 D 1=1 T A 192,189,21,192,2© 1 ,255,208,3 
2 310 D A T A 2 22,22,192,189,21 , 192,221 , 12 
2320 D A T A192,189,22,192,253,13, 192 , 144 
2330 DATA 18,189 , 1 2:, 192,157,21 , 192189 
2340 0A T A13, 192 , 157,22,192,104,74,72,76 
2350 D 1=1 T fl 207 , 192,104,74,72,176,8,254,21 
2360 D A T A192,208,3,254,22 , 192 , 189,0,192 
2370 DflTFl221 , 17,1 92,189, 1 , 192,253,18 
2380 DATA192,144,18,189,0,192,157,17 


2390 

DATA 1 

9 2. 

, 189 , 

1 , 

192 , l 

57,18 


104 

2400 

UA1 A 7 

4 ... 

72, '76 

.-1 

, 193 , 

104,7 

4,7 2 . 

1 76 

2410 

DATA 1 

3... 

222,1 

r ... 

192,1 

89 , 17 

, 192. 

.201 

2420 

DAT A 2 

55 

, 208 , 

!.“! r 

222,1 

8 , 192 

, 189. 

• 17 

2430 

DATA 1 

9 2 

, 221 , 

4 , 

192, 1 

89,18 

, 1 92 

2 -!j 

2440 

DATA 1 

9 2 

, 144 , 

18 

, 189 , 

4,192 

, 157 

. 17 
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450 

DATA 192,. 1 

89 r 

5, 1 

92 r 

15 

7,1 

8, 

1 

92 , 

104 

460 

DA1 A74,72 

.r 7 £> 

,46 

, 19 

-1 

104 

.«• >’* 

4 

__ 72 

, 176 

470 

DATAS,254 

, 17 

, 19; 

k' .r i=:! 

08 



4 

, 18 

, .1.92 

480 

DATA104,7 

4,1 

76 , 

5,1 

69 

, 1 , 

15 

o 

,25 

, 192 

490 

DATA200,2 


k! 

r klkl 

4, 

4,2 

40 

«• ■ 

3,7 

6, 91 


2500 DATA 192,238,27,192,108,2 9 , 1 92 
2 51.0 DATA35994 : R E M JH C H E C l< S UM $ 

2520 FORI=49183T049478 
2530 READ3:: POKE I , X : CC=CC+X 
2540 NEXT 

2550 REAOX: IFXOCCTHENPRI NT " CHECKSUM ERROR" 
2560 RETURN 

2570 REM-TITLE PAGE. 

2580 POKE53281,0:PRINTCHRT< 30> 

2590 PRI NT:PR INT:PRINT 
2600 PRINTTAB<18>"I" 

26:1.0 PR I NTTAB < 6 > " M F D" 

2620 PRINTTAB<7>"I E" 

2630 PR I NTT AB < .1. 1 > " E " 

2640 PR INTTAB<9 >"N" 

2650 PRINTTAB< 22>"L" 

2660 PRINT:PRINT:PRINT 
2670 PRINTTAB<30 >"E" 

2680 PRINTTAB<24 >"V K" 

2690 F'R I NTTAB C 9 > 11 R: S A" 

2708 PR INTTAB<12 >"E S N 

2710 PRINTTAB<7>"P" 

2720 PRINT:PRINT 
2730 PRINTTAB<24> "O" 

2740 PRINTTAB<23>”T PLAV" 

2750 RETURN 

2768 REM.-.~~FIUAL EXPLOSION-.. 

2770 IFI ,-'2= I NT < I ,-'2 > THENP0KE53281 2 : G0T02790 

2780 POKE53281,7 

2790 8=54296 :14=54276 s A =54277 

2808 H=54273:L=54272 
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2 810 F 0 R B=2 0 T 0 0 S T E P -1 : P 0 K E S , B s F : ' 0 K E W, 12 9 
2820 POKER 15 : POKEH7 POKE!...12 jNEXT 

2830 P 0 K EE W ,. 0 ; P 01< E R,. 8 

2840 POKE53281 8 s FOR J = 11020 :NEWT 

2850 P 0 !< E 53 281 0 

2868 RETURN 

2870 REM -MIHE.'DETECTOR COL..L I 8 I ON-- 

2888 C 0 0 El =1024+1N T < < V •- 5 0 >X 8 + 1 > * 4 0 +1N T < N 18 > / 8 > :: R E M C 0 H 

VElRT X - V TO SCREEN CODEl 

2890 I FF'EEK < CODE > «32THEN30S0 

2900 I FPEIllK < CODE +1 > = 3 2 T H El N C 0 D E - C 0 0 E -1 

2910 REM—SOUND EFFECT-. 

2926 R = 54277 : 8=54296 : W=54276 s H=54273 : [...=54272 
2938 FORB-l5T08STEP-1 
2 9 40 P 0 K E54 27 2 •+• C 0 D E ,• B 

2950 P0KE54272+C0DE+1,BsPOKE53280,B+1 
2960 POKESB s POKEH, 129 
2970 POKEH , 15 ii POKEH , 7 n POKED , 1 2 n NEXT 
2980 P 0 K E W , 0 ii P 0 K EE fl0 

2990 R E M - - T U R N 0 F F MIN E.- 

3000 P 0 K E C 0 D E, 3 2 s P 0 K E 0 0 D E +13 2 
3010 REM.RESET BORDER. 

3 0 2:0 P 0 K El53280 1 4 

3030 R E M - - 800R E.- 

3040 VS=VS-i-100 


050 

PR I NTTRB t 

6 > 

3HR# < 145 

> "VOUR £ 

CORE " 

.11 VS 

068 

07 ? 0 

RETURN 
REM-.--0U 

T 

OF TIME 

ROUT INE- 



080 

090 

PRINTCHR* < 1 
PRINT : PRINT 

47 > 

;i PRI NT :F 

PINT;PRI 

NT 


100 

PR I NTT RE: < 

12 

OHR# '[ 30 

> "a 

i a i 

a w i a 

1 10 

PRI NTT RE: < 

12 

> M r a i 

vS 

Si 

78. 

I! 

A 1" 

120 

PRINTTABC 

12 

>" ja « 

.a * .a 

itva 

i a i" 

130 

PRI NTTRB < 

12 

>" a a 

xi m .a 

a a 

1 a i" 

:l 48 

PR I NTTAB < 

12 

>" .a a 

a i! a 

iS 

'm 

■ jg ■" 


3150 PR INT:PRINT:PRINT 

3160 PR I NTTRB < 1 3 > " 5JF jg !I 53 1 S 
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3:1.70 PRIHTTRB':: 13> ",;S 1 .3 I! £ij 1 ■ W .a 1 T' 

3180 PR I NTTflB < 13 > " ,g| ■ a M .a W .a Itt g| l§" 

3190 F'R I NTTflB < 13 > " .g H a ffl .g I! .£! H |3 1!!" 

3200 PRIHTTRB':: 13> @F "Hg IT a 1" 

3210 PRINT: PRINT: PRINT 

3220 PR I HTTfiB < 13 > ’"TOUR SCORE " ; VS 

3230 PRINT: PRINT 

3240 PRINTTflB<7> " CCPRESS RNV KEV TO PL.FlV»" 
3250 PGKEV+21 ,.0 
32:60 R E M..- S O U N D E F F E C T.- 

3280 F 0 R l...=0 T024 : P 0 K E S -i- L , 0 

3290 POKES+ 1 64 : POKES+59 

3380 POKE8+ 1530 : POKES+2415 

3310 FORI = 1 TO12:POKES+4,21 

3:320 FOR J= 1TO200 : NEXT sPOKES+4,20 

3330 FGRJ=1TO200:NEXT:NEXT 

3340 POKES+24,0 

3350 RIJN 1020 

3360 REM ii 

3370 REM -DAT Pi FOR SPR 0- 

33 8 0 D fl T 13 2 5 2 , 6 30 , 2 4 8 , 31 ,. 0 ,2 40 , 1 5 , 0 
3390 D 1=1 7' fl 2 3223 , 0 , 199 , 227 , 0 13233 , 8 
3 40 0 0ATA4, 3 2,0,4,32,0 ,• 4, 3 2, 0 
3 410 D fl T 1=1132 ,3 3,0,199227 , 8 , 23223 ., 8 
34 2 0 D fl T fl 2 4 01 5 0 2 4831 , 0 , 25 2 ,6 3 , 0 
3438 OATA0,0 , £i, 0,0,0,0 r 0 0 
3 440 0 fl T fl 8 , 0 , 8 , 0i , 0 , 0 0 0 0 
3450 REM ;; 

3468 REM—.-DATA FOR SPR 1- 

3470 D fl T fl 01,0,0,01,0 01,0,0,0 -r 0 0 0 0 r 01 01 
3480 DATflti, 0224,0,1,80,0 , 1 , 240,8,0,224 
3490 DflTflO,0,64,0,3,248,8,7,188,0,13 
3500 D fl T Fl246,0,25 ,179,0,25,243,0 , 1 , 240 
3 510 D Fl T Fl0,1,176,0,3,24,0,3,24,0,7,28,0 
3520 DATA 15,30 
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3530 REM: 

3540 REM-DRTfl FOR MINES- 

3550 DRTR00,3,63122,6315 
3560 DRTR0... 0,192252,94,252 


!, 0 

: 240,0 
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1000 REI'1 +'*:•+ L..0UK OUT! ### 

1010 S-54272 

10 2 £i F' 0 RI = O T0 24 s F' 0 K El S • i-1 ,• 0 :i H E X T 
1030 F'OK EES+ 24 ,■ 14 
1 04 0 F' 0 K E S + 5 r 31 : F’ 0 K EE S+6,1 5 
10 50 F’ 01< E S , 2 0 0 
1060 F'EI MTCHRi"< 147> 

1070 PRINT"INPUT SCORE TARGET: 

1080 IHPUTQT:Q=VAL< QT> 

1090 I FQ<E 1 THEN 1060 
1 100 F‘R INTCHRT< 147;' 

1 110 POK EE 532810 : P0KE532800 
1 12 0 S C = 1024 : C 0 ss5529 6 : Z1 = 0 ; Z 2 * 0 
1 13 O X1 := 19 : V1 = 12 i: X 2 = 21 : V 2 = 12 
1 140 PR I NTS NET < 1 S' > CHET <■. 158 > " PLAVER 1 
1 150 PR INTCHRT < 19 > TAB < 24 > 11 PLAVER 2 : ": 
1160 REM -- MAIN LOOP ... 


1 170 

P1 ---F'EEK C 56320 > i: P2=P 

EEKC56321> 

1 180 

XO=Xl VO=V 1 ; 0 X=X 2 sU 

V=V2 

1 1 90 

I F r P 1 = 1 26THEMZ 1 = .1. 


1 200 

IF F' 2 ==254 T H EE M 2 2 = 1 


1 2 10 

I F'P 1 = 125THEM21 ==2 


1 22 O 

IFP2=253THENZ2=2 


1230 

IFP1=123THENZ1=3 


1 240 

IF P 2. -- 25:1T H E N Z 2 =3 


1250 

I FP 1 = 119THEENZ1 =4 


1260 

IF F'2=24 7T H EE N Z 2=4 


1270 

IFRND<1>>.5THEN1338 


1280 

ONZ1GOSUB14501470 

1 4901510 

1290 

0NZ2G0SUB15301550 

15701598 

1 300 

IF F'EEK < SC+X1 + 40# V1 > 

= 16 0 T H E N16 2 0 

1310 

IF P EE E K < S C -i- X 2+4 0 # V 2 > 

=160THEN1670 

1320 

GOTO1370 


1330 

0NZ2G08UB 15301550 , 

1570 ,• 1590 

1340 

ONZ1GOSUB1450,1470, 

1498 .-1510 

1850 

IF P E EE K C S C+X1 + 4 0 *■ V1 > 

=160THEM1620 

1 360 

I F'PEEK <; S C+X 2+4 8 # V 2 > 

=16©THEN1670 
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1 370 

F- 0 K El S C •+• X 0 •+• 4 0 ft V O16 @ 


1 380 

R 0 K E S C+1J X -i- 4 0 ft 0 V , 16 0 


1398 

POKECO+X'l 440ft V1 r 14 


1 400 

POKESC+X1440ft V1,177 


1410 

P 0 K E C 0 + X24 4 0ft V 25 


1420 

P O K E 8-C+X 2+4 0 ftV2 ,• 17 8 


1 430 

GOTO 1 j. 70 


]. 440 

REM - MOVEMENT 

— 

1450 

V1=V1-1:IFV1<1THENV1 

=24 

1460 

RETURN 


1470 

V1=V1+1sIFV1>24THENV 

1 = 1 

1480 

RETURN 


1490 

X1=X1-1sIFX1C0THENX1 

= 39 

1 500 

RETURN 


1510 

X1=X1t1 :1FX1339THENX 

1 =0 

1520 

RETURN 


1530 

V2=V2-1 :: IFV2C1THENV2 

=24 

1540 

RETURN 


1550 

V2=V2+1 :1FV2>24THENV 

2=1 

1560 

RETURN 


1570 

X2=X2-1sIFX2C0THENX2 

--39 

1580 

RETURN 


1590 

X2=X2+1 :1FX20-39THEN7 

2=0 

1 600 

RETURN 


1618 

REM - PLOVER: 2 

SCORE 

1 3 2 Li 

3 2-- 3* 2 ■+■ 1 ; l~' LJ K E 3 4 4 r 1 r" 


1638 

POKE8+1,305 FORT—1TO1 

20 : NE 

1640 

I FS2=QTHEN 1720 


1650 

POKES4-4,0 s GOTO 1 180 


1 660 

REM -.. F'LFIVER 1 

SCORE 

1 6:70 

$1=81+1 :POKE8+417 


1680 

POKE84-1 30 : FORT = 1 TO 1 

20 :NE 

1690 

IFS1-QTHEN1798 


1 700 

P i J K E. 8< 4 4 >r 0 > U Li 1 i J 1 1 U 0 


1710 

REM -- PLOVER 1 WINS - 

1720 

P RIN T C H R $■ < 14 7 > : P 0 K E 8 

*+* *4 .r W 
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1730 PRINT"PLAVER 1 WINS THE GAME" 

1740 PRINT:PR INT;PRINT"ANOTHER GO?" 
1758 GET AT : I FAfO " V " hNDhT-O " N " THEN 1 
1760 IF A$="V"THENRUN 
1770 POKE53280... 14 :P0KE53281 6 :END 

1780 REN - PL AVER 2 WINS .. 

1730 PR INTCHRT < 147 > : POKES+4., 0 
1800 F'R I NT" PL AVER 2 WINS THE GAME" 

1810 PR I NT : PR I NT's PR I NT " ANOTHER GO?" 
1820 GET A* : I FflK) " V " PlNDFTfO " N " THEN 1 
1830 IF m= " V " THENRUN 
1840 POKE353280 .,14; POKE53281 6 : END 
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Drum Kit 



The sound capabilities of the Commodore 64 are exceptional, but like most good things can be 
a pain to use. This drum simulation, however, gives a fair idea on how to obtain some percussive 
sounds. 

The drums available are the BASS, SNARE, and HI and LO TOM-TOM's, and each different 
drum sound has been programmed in separate modules so that they can be utilized separately. 

Even so, it is a complete program and on execution you can play each drum from the keyboard 
by pressing the keys ‘F’ and ‘G’ for Hi/Lo Tom-Toms, ‘B’ for the Bass Drum and ‘J’ for the Snare. 
Each drum’s key has been positioned for easy access. 

It a key is held down, that particular drum will keep on sounding and with a little bit of 
timing you will be able to play quite good rhythms. 

The program has a lot of scope for expansion. Try adding a crash cymbal or hi-hat.for instance. 
Happy Drumming! 
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10 

30 

REM r 

:irum 

KI 

I :+::4 







10 

1 0 

PR I HTCHR: 

IT C 1 4 

7 

‘l 








1 0 

20 

POKE53281 

i 0 ;; 

P 

:n< 

=[53i“ 

:8 

1 , 0 





1 0 

30 

PR I NTT Ft Ei 

: 4 >" 


airnimi 

i»i m mm 


mm 

iiHH Hffi! 

Hmmmmmi 

1 0 

40 

PR I MITRE? 

4 :> " 

itffl! 

ton 

fitffl 

m 

mu nil HRiSiBHwmnm 

Him HUM 

mm 

10 

00 

PRIMTTRB 

:: 4 > " 

!HH! 

IBR! 

ffl8! liHii Him 


iiffi! 

iimimm 

mm 

1 0 

60 

PR I MITRE: 

14 ' " 

m 

BIS 

mu 

mu 

iiii fflti mm 


HUM 

mm Him 

m 

1 0 

70 

PR I NITRE? 

4 ?' " 

BIHBHUI 


mm 

nwttfl mm 


BIB! 

ii»i m 

mmsammi 

1 0 

88 

PE I MI;PR 

[ NT ; 

p 

R1 

•IT 







1 0 

90 

PR IHTTRB 

10 ?■ 

11 

[B 

] •••• 

E? 

R3:3 DR 

JK 




1 1 

00 

PR I MITRE 

10 ? 

>1 

C J 

"{ ... 

3 

HR RE [J 

RL 

M 



1 1 

1 0 

PRIHTTRB 

1 0 ? 

11 

[F 

.1 = 

H 

I TOM 





1 1 

20 

PR IMITRE 

; 10 ; 

1! 

C G 

3 

L. 

O TOM 





1 1 

30 

PRIHTTRB 

< 1 0 ? 

" 

i: 

1 

L- 

RUSH G 

t'V 

IBRL 



1 1 

40 

PRIHTTRB 

< 1 0 ? 

II 

ER 

:\ = 

R 

fill DOM 

DF 

:UM 

SOLO 


1 1 

50 

PRIHTTRB 

1 0 ? 

11 

C 8 

i ~ 

R 

ETURH 

T C 

i MHNUfiL 


1 5. 

60 

REM •••--.- 


• — 

3 

ET 1 

IF 






1 1 

70 

3=54272 : 

3 1 =5 

«*4 

2 8 

6 sS: 

? = 

54273 





1 1 

80 

Fuk I :=0T U 

24 :F 

'C 

KE 

1+3 

,• 0 

:: NENT 





1 1 

90 

POKES+24 

, 14 

F 

EM 

VO! 

..UME 





11 

00 

REM .. 


G 

ET 

DPI 

JM 

--.... 





1 »::L 
12 

1 0 

20 

HE 1 Hi 

i f m=" r " 

THEM 

ii 

r uC 

0 sRI 

El v 

DRUM 

SC 

iLO 



1 2 

30 

IFfi*=" J " 

THEE 

IG 

OS 

IJB 1 

300;REM 

SE 

IFIRE 

. 


11 

40 

IFRT="B" 

THE I 

IG 

OG 

LIB 1 

3G 

0 s REM 

BE 

133 



12 

50 

IFRT=-"F" 

THE!' 

•IG 

OS 

IJB 1 

47 

0 : REM 

T ( 

iM : 




1260 IF 1=1 $ ='' G 1 ' T l-l E N G 0 S U B15 '5 0 2 R E M T U M 2 
12 7 G IF f i $ =" ” T H E N G 0 S U B16 5 G : R E M C V M B R U 


12E30 

GOT 

i J1 
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1290 

REM 



. SHORE 

1 300 

F'Oi< 

EG 

2 + 4 

r 0 

1310 

F'UK 

EG 

2+5 

r 

1320 

POK 

EG 

2 4- 6 

0 

1 330 

POE" 

EG 

2+4 

r 1 23 

1 34© 

POK 

EG 

r iT.. 

30 

1 350 

POK 

EG 

2-4 1 

90 


1360 RETURN 
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1380 

POKES1+4,0 

1 3 .'3 0 

POKE 82+ 40 

1 400 

POKES1+5*4 

14 :l 0 

POKES 1 +6... 2 

.1. 420 

POKES 1 +41 7 

1430 

POKES! ,.2 

1440 

t 4130 

POKES 14-1 , 10 

PFTI !RN 

1460 

REM .-.-.—.- TOM 

1470 

PUK El 8 1 4-4 ... 0 

1480 

POKES 2+40 

1490 

POKES1+5,4 

1 500 

POKES 1 +€., 2 

1510 

POKES 1 +417 

1 520 

POKES 1 2 

1 530 

POKES 1 ■+■ 1 20 

1 540 

return 

1550 

REM ---.-. TOM 

1560 

POKES 1 +4O 

1570 

POKES 2+40 

1 580 

POKES 1+5,.4 

1 590 

POKES 1 +62 

1 600 

POKES 1 +4 1 7 

1 610 

POKES 1 ,.2 

1 6 20 

POKES 1 •+•, , 15 

1 0 

RETURN 

1640 

REM -.—.- CRASH C 

1650 

POKES+4.-8 

1660 

POKES+59 

1670 

POKES+60 

1680 

POKES+4129 

16901 

POKES, 2 

1 700 

poke: 8+1 ,150 

1 '710 

RETURN 

1 720 

REM ■ - RANDOM DF 
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1730 R= I NT < RHD < TI *5+1 > 

1740 D= I NT < RND < 1 > * 100 !> 

1750 F0RT=1T050+D:NEXT 
1760 0MRGOSUB1300 , 1380:L 470 1 560 ,r 1650 
1770 GETBt: I FB'IO " S " THEN 1730 
17S0 GOTO1210 
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Math Encounters 



In this game your mathematical skill is called upon to save the humanoid. Answer the sum correctly 
and the ‘Force of Knowledge’ is with him. If you get the answer wrong you lay him open to 
liquidation by the alien. 

The '+’ sign can be changed to V ; or '/’ by altering lines 1720 and 1740. The range of 
the numbers can also be altered by changing lines 1690 and 1700. 

This program demonstrates the lower case character set. Type it in as written and then press 
SHIFT and the Commodore Flag key to see lower case letters appear on the screen. 
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10 

30 

REM *** 

■Ifl 

r 

4 ESN COUNTERS 





.1. 0 

1 0 

PR 1 NT CHE: 

PS 

1 

47 S' CHET 14 > 





1 0 

20 

POKE5328! 

Si , 

3 

sF'0KE532Sl ,0 





1 0 

30 

PRINTTftB 

•• i~ t 

j 

" | 0 PL..AV ,ATH -T-i 

COUNTERS 

YC 

u 

10 

40 

PR I NTTAB 

•• cr 

'1 

"MUST TYPES 

IN 

THE COR 

REiS 

7' 

10 

50 

PR I N T THE: 

•• cr 

^1 

"ANSWER TO T 

HE 

nHJM A HI.J F- 

RES 


10 

68 

PRI NTTAB 

5 

;i 

"THE ...71 I< 

EV „ " 




1 0 

70 

PRINT 








10 

80 

PR I NTTAB 

•• nr 

> 

" I HEN WATCH T 

HE *LIEN FIRE 

HI 

Ei 

10 

90 

PR I NT THE: 

: 5 

> 

"LASER GUN," 





1 1 

00 

PR INTTAB 

; 5 

> 

" F THE WRONG 

AL 

SWER HAS 

BEE 

N 

1 1 

10 

PRINTTAB 

S5 

y 

"GIVEN., THE P 

OOFS 

lUMANO ID 

WIL 

L 

1 1 

28 

PR I NTTAB 

; 5 


"PERISH,, . . " 





1 1 

30 

PR I NTT FlB 

<: 5 

j 

" | LIT IF THE 


| ANSWER 

Wf 


1 1 

40 

PR I NTTAB 

< 5 


"GIVEN THIS 

WI 

L.L GIVE 

77- 

ESS 

1 1 

50 

PR I NTTAB 

!~i 

j 

" IUMAN0ID A 

FOR 

CE FIELD., 

TO 

1 1 

60 

PR I NTT RE: 

< 5 

;» 

"WHICH THE 

EASE 

R BOLT 

WIL 

L. 

1 1 

70 

PR INTTAB 

cr 

.j 


"REBOUND AND 

DEBT 

ROY THE ALIE 

N 

1 1 

80 

PR I NT 








1 1 

90 

PRINTTAB 

!~i 

■| 

"CHAT NAPPE 

NS 

HE NT S : "S 

’ ? ‘7 


is: 

00 

PR INTTAB 

cr 

> 

" pU GET 

RE- 

OTHER 

#IJE 

. 

is: 

1 0 

PR I NTT A El 

< 5 


S N " T I 

T 

0 R E FI T 

1 | 

j 

i s: 

20 

PE I NT 








12 

30 

PRINTTAB 

«;* 51 

1 

11 “1_—«!«■ ■¥• * 1 

1 r ■ 

L* !" 



]. 2 

40 

GETCT:IF 

:.■$ 


""THEN1240 





12 

50 

PR I NTCHE 

$ 

1 

47 S' : F'OK ESS S3 2 SC 

,4 




i s: 

60 

REM 

3E 

7 

UP SPRITES 

SOL 

NO - 



12 

70 

FOR I=0TO 

6 2 

JJ 

READ J :: POKE I +£ 

32 ,. J 

uNENT 



12 

80 

FOR I=0TO 

2 

;; 

READJ;POKEI+E 

96 r 

:i HE NT 



12 

90 

POKE981, 

’ s 

F 

EM BULLET SPR 

IT ESS 




12 

00 

VC=53248 



54272:S1=542£ 

6 




12 

1 0 

POKE2040 

1 

**:: 

: POKE2041 ... 14 : 

POKE 

20 "12 , 15 



12 

20 

POKEVC+2 

1 

0 

:i POKE936170 





IS 

30 

POKEVC+2 

!;:! r 


2 POKEVC+37,1£ 





12 

40 

POKES VC+3 

r 

s 

:P0KEVC+3SL,5 





IS 

50 

POKES VC+4 

0 

5 

:: POKE VC+411 





12 

60 

POKEVC,5 

0 :: 

F 

OKEVC+ 1 100 
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1378 POKEVC-i-2255 2POKEVC +-3100 
1380 POKEVC+4 ... 245 :: POKEVC+5,100 
1 3:38 F :, 0KEVC+23 .. ?' :: POKEVC+297 
14 0 R F 0 RI 0 T024 :: P 0 K EI + 8, 0 s H E X T 
1410 POKES+24,14 
1420 F'DICES-+-5, 31 ; POKES+615 
1438 POKES 1 +5 ,31 : POKES 1+ 6, 15 
14 4 0 P 0 K E S200 s P 0 K E S12 8 0 

1450 REM - DRAW SCREEN ... 

1460 PR I NIC HR# < 13 ) CI-IIS# < 3.58 ) 

1478 F OIST = 1T08 s PR I NT 2 NEXT 
1480 FOIST-1 TO48 s PR I NT " ; 2 NEXT 

1490 F’F: INTCHR# < 1 8 > ? 

1580 PRINTCHR# K 156); 

1518 F OIST = 1TO80 2 PR I NT " " ; : NEXT 
1520 PRI NTCHE#<158> CHR#C146> ? 

1530 FORT-1TO40 2PRINT"; 2NEXT 
1540 FOIST--1TO20 2 R= I NT < RND < 1 > *360 > 

1550 P0KE55236+R , 7 2 POKE 1024+IS46 2 NEXT 
1568 PR I NT 2 PR INTCFIIS# < 30 > 

1570 F'F: I NT TAB < 1 1 > " I ET THE SUM | !! ! " 
1580 PRINT 

1590 F'RINTTRBC 10> "TO SAVE THE IUMHHOID" 
1600 PR1 NTCHR#<158) 

1610 FORT= 1TO40 2 PIS I NT "" ; :NEXT 
1620 F'F: I NT CHR# C 19) ; 

1630 PIS II ITCHR# C 1 8 > " *** "4=11 H "2 

1640 PR I NT " ~N COUNTERS *** 

1650 REM ---- MAIN PROG -- 

1660 FORT = 1 T02000 2 NEXT 2 POKEVC+21 ,• 3 
1670 B=245:D=-2 

1680 FOR I = 1864TO 1903 2 POKE I 32 : NEXT 
1690 CO-1 NT RND < TI ) *20 ) 2 REM CHANGE THESE 
1700 V= I NT < RND C TI ) *20 ) : REM HO' r S TO SUIT 
17 : ' 10 POKE781,212 POKE782:1 3 2 SVS65520 
1720 F'R INTX " + " V " = " 
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1 730 
1740 
17!50 
1760 
1 770 
1780 
1 790 
1800 
1810 
1820 
1830 
1840 
1 850 
.1860 
1870 
1880 
1890 
1 900 
1 Si' 1 0 
1920 
1 930 
1940 
1. 950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 


2070 


2090 


INF'UTQ# :Q=VRL < Q$ > sM=0 
IFQO < X+V > THENM= 1 
3: F ! v l = 1T H E N G 0 S U B17 9 0 
IFM=0THEHG08UB1920 
GOTO 1660 

REM - WHOOPS! - 

POKE VC+217 
GO SUES2040 

B=B-2 s IFB>58THEMP0KElVC-i-4, B s GOTO i 816 

POKE8+4,33 2 POKES1+4,33 

FORT-1 TO 100 i: POKE VC+ 21 3 

POKES+1,118—T:POKES 1 +1,1U1-T 

POKE VC+21 ,.2 sNEKTT 

POKE S'+4,0 : F :; 'OI<ES .1 +4 ,■ 8 

POKE781,21:POKE782,7;SVS65528 

PRINT"| HE RNSWER TO THE SUM IS'%£+V 

FORD — 1T08088 : NEE XT 

RETURN 

REM -- HOORRV! - 

POKEVC+21,7 
GOSUE32840 

B=B+D i: IFB<84THEND=-~D sP0KE938,138 

POKEVC+4,B 

IFB<250TI-IEH1948 

POKES+4,33:POKES1+4,33 

FORT"1 TO 1882POKEVC+21,3 

POKES•+ 1 , 10+T :POKES 1 +1, 1 + T 

POKEVC+21 , 1 :: HEX "I": P0KE938,178 

F'OKES+4,8 s POKES 1 +4,0 

RETURN 

REM -... FIRE LASER --- 

POKES+4,33 : POKES3. +4,33 
F0RG=48T018STEP—5 
PUKE8+ 1 , G 2 PUKE8 1 + 1 , G+-28 
NEXTG 

POKE8+4,0 2 POKES1+4,8 
RETURN 
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2100 REM --- SPRITE DATA - 

21 10 D fi T R 0 0 0 , 0 , 6 0 . r 0 .„ 0 255 ., 0 r 0 2.15 
2120 DRTR 0 .,21560,0,20,48,0191 , 1 92 
2130 DAT fi 191128,10., 170160,40,186 
2140 DAT FI96,170 ,9 16186., 4 , 0 2550 .„ 
2158 DfiTFl2550 ,0,2550,0,. 195, W, 019 
2 1 60 DATR0 r 195,00,195., 0 ,0 , r 130 „ 0 „ 3 
2170 DATR0 00 , 0,00 80,3220,128 
218 0 D fi T1440 128,0,170,0,0,1700242 
2190 DATA 12858170160,2,170160... £1 
',.i20 U CJFfi Fi 32 013800,1700,0 _ r ;|. 7'0,0 
2210 DATA 1680,0,136,0,0... 1 360... 0 ,. ;|. 3 
2220 DFIT1421380... 0 r 0 r 0 r 0 ... 00 


,. 15 

40 

0 

5,0 

195., 192 

170 
, 0 
6,0 
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In Cosmic Dodge you are aboard a space freighter which has no forms of defence. You are heading 
straight into a swarm of bird-like creatures which will not attack you. but may very well bump 
into you. You have, however, two options: 

(1) Dodge them. 

(2) Use the hyperspace. 

If you use the hyperspace option you do not score any points, and it could be disastrous il 
you come out of warp drive straight into one of the aliens, so remember where your ship was when 
you last saw it! 

The FI function key takes you into hyperwarp and F7 brings you back again. 

Happy dodging! 
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1000 REM COSMIC DODGE *** 

1 0 1 0 F : ' RI l -l T C H R $■ < 1 47 > s G 0 S1113 1 7 00 ; R El M TIT L E 
.1.020 P 01< E53280,0 p 0 K E53281,. 0 
1030 REM RE'HD JOV8TICK DliTR 

1040 FOR I = 49183T049478 : REflD J 
105© POKEI , J :CC=CC+J:NEXTI ; REflDJ 
1080 IF JOCCTHENPRI NT " DfllFl ERROR " :: END 
1870 8V84:31 3:3 

1080 REM REflD SPRITE DflT'fl •*** 

1 0 9 0 F 0 RI ~ 0 T 06 2 ; R E Fl D J ; P 0 K E 8 32 + I , r J ; N E X T 

1 10 0 P 0 RI = O T062 s R E fl D ,J :: P 0 K E 8 96 ■+• I J N E X T 

1 1 10 R E M * * * S E T ..J 0 V 8 TIC K P fl R Fl M E T E R S * * * 

1 3 .2 0 P 0 K E4915250 P 01< E49153 ,0 

1 13 G P 0 KE 4 915 €2 55 : P 0 K E491570 

13.4 0 P 0 K E 4 916:018 0 s p Q K E 4 91610 

1 1 50 P0KE49164 ... 207 : P0KE49165... 0 

1160 POKE49168,-0 

1170 REM SET IJF' SPRITES 

1 18 0 P O K E2040... 13 ii V C=5324 Q 

1 190 POKEVC+39 ., 8 :: POKEVC+31 0 

1200 P0KE VC•+• 2 3.„ 1 :: F : ' 0 K E VC+2 9... 1 

121 0 X = 1 78 sV=287 i: P0KE VC +1 V s P01<E VC X 

1 220 P 0 !< E49169X s F' O l< E49173 V 

1238 3=54272 

1240 F 0 RI = 0 T 024 s P 01< EL' 8 +1 ,0 s H E X T 
1250 POKE8+5,31 : POKES+6, 240 
1 260 F : 'R I NTCHRT < 1 L ::i > CHRf < 1 7 > 

1270 P RI H T T fl B Cl 0 > '' P R E 8 S Fl K E V T 0 PLFiV" 

1288 GET .IT : I F'JfO " " THEN.'!. 280 
3. 290 GET 1-1$ ; I Ffl$= " " THEN 3.290 
1300 F : 'R I NT CHET < 3.4 7' > : POKEVC+2 3., 3. 
l8lO REM #i+iMAIN LOOP 
1 320 X--PEEK C49169 > : V=PEEK C4.9173 > 

3.330 PR IH TCHRi" < 19CHR$ C 3.7 ? 

1 340 PR I NT CHEN? < 157 > CURT C 148 > 

1350 P0KE218160 
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1360 

POKE646IHTXRHD < 1 

i+i 1 4 + 1 > 


1370 

PE I MTT'flB < IHT < END <' 

T'l >*35) > " '-4-' 1 

1 

1330 

PEIHTCHR*< 19 ■' CHEKA" 

158> "SCORE :: 1 

' SE 

]. 390 

IFSEX41TI4EMHI = 3E 



1 400 

F'RINTCHR* < 19> TRB< 

23 > "HIGH SC OF 

HE : "H 

14 10 

GETR* : IF r H*=CHR*<1 

33 > THENGOSUB: 

1 500 

1420 

IFfi$=:CHRt C 136 > THE 

NGOSUB1550 


1 430 

IFHV-1 THEN1330 



1440 

POKEVC+31,0 



1 450 

IF PEEK-:: VC+31 > RND1 

1 THEN 1590 


1460 

I FH‘t , =0THENSE-SE+ 1 



1470 

POKEVC,X:POKEVC+1 

V 


14:30 

GO'T'01328 



1490 

REM *** HVF'ER SPhCE 


1580 

PR I NTCHR* 30 > 



15 1 0 

F'R I NICHE* < 19 > TRE:< 

1 1 > ".HVPERWlRi 

RP-" 

1520 

POKEVC + 21 ,.0 HV — 1 



1530 

RETURN 



1540 

REM >!>:*I Wl-lRF' SHUT 

' down w.m. 


1 550 

PRI NICHE*':: 193 TRET 

11 > " 

1! 

1560 

POKEVC+21 1 :HV=0 



1570 

RETURN 



1 580 

REM *1*: MHOOF"3 ! -4 

G+l* 


1 590 

POKE2040 14 



1600 

F'ORV:= 15TO0STEP-., S 

5POKEVC + 21 1 


1 6 1 0 

POKES+-4,. 129 ;;POKES 

X 100 s POKES I-1 

/ 3+V 


1620 POKES+24V ::POKEVC+21 ,■ 0 : NEXT 
1630 F r O R l-| = 1T01000 H E X T 
1640 POKE204013 

1650 P R IH T C H R $ < 1 9 > F 0 R T = 1T 0 4 : P RIN T C H R * < 1 7 > 
1660 NEXT 

1670 F'R I. MITRE: < 1 . 4 > " - GAME OVER- " CHE* < 17 > 

1680 F 0 R K = 1T010 0 0 s N El X T 
1690 S E=0 :: G 0 S U EE: 1 ? 0 0 ; G ij T ij 1 18 0 
1700 REM **;+■: TITLE F’FlGE *** 

1 710 PR INICHE* 147 > CHR* < 1 58 > 

1720 PRINICHE* <17> 
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il 

f- 


I_'» 


Wr'fcJ AKIN I i HB'■ 1 .1. > Ci 0 D G E Hcf:# 

1888 RETURN 


1890 

DAT A120,1732031 

41 

r 2 9 r 

192 , 

172 

, 21 

1 900 

DAT A3,141 30,192,1 

6 

,71 

141 

20 , 

3 

19.10 

DAT ft 169192 .,141 ,21 


, 88 , 

96 r 1 

20 , 

173 

192U 

DA 1 A29, 192 ,141 , 20 , 


173 , 

30,192:, 

141 

1930 

DATA21,3,88,96,172 

c.: 

7,1S 

2,26 

5.1 

6 

1940 

D ft F ft 1 92,240,3,76 , € 

cr 

193 , 

169 , 

O nr nr 

■- ... i 


1 950 

DAT A141,27,192,162 

2 

, 1 60 

0,1 

!";! b 

•-> 

1960 

DATA220,141,28,192 

, 1 

69,2 

24,1 

i:r 

.. j ,_"i ,. 

2 

1 970 

DATA220,185,8,220, 

72 

, 1 73 


192 


1980 

DATA153,2,220,189, 

8 

192 

22.1. 

2 1 „ 

i 92: 

1 990 

DATA189,9,192,253, 


, 192 

, .1. 44 

, 1 £ 


2000 

DATA189,8,192,157, 

21 

1 92 

189 

- 9 

192 

2010 

DATA157,22,192,104 

7 

4,72 

.• 76 

162 


2020 

DA 1 A .192 , 104-, 74,72 , 

17 

6,1 3 

, 222 

,21 


2030 

DA T A192,189,2:1 , 192 

•“« 

01 ,2 

55,2 

08 „ 


2040 

DATA22:2,22,192,189 

r i:2.' 

1 , 1 9 

2,22 

1 , 1 


2050 

DATft 192,189,22,192 


53 , .1. 

3,1 9 

2,1 

44 

2060 

DATA18,189,12,192, 

15 

7.21 

, 192 

, 18 

5l 

2070 

DATA13,192,157,22, 

19 

2,104 ,. 74 

r l’’ CC 

r 7G 

2088 

DAT ft207,192,104,74 

r 7 

2,17 

S , 8 , 

254 

,21 


1 730 

PR I NT TAB 

.1 

1 > 

11 

1 1 1 1 - 1 r~i n ”r 

1740 

PRINTTABC 

1 

1 > 

" 1 III 1 LJ I ! 

1 750 

PRINT TAB':.' 

1 

1 > 

" 1 III 1 II 

1760 

PRINTTAB< 

1 

1 > 

" 1 III 1 II 

1 770 

PRINTTAB< 

1 

1 > 

" 1 III 1 II 

1 780 

PR INTTAB < 

1 

1 > 

" 1 III 1 II 

1790 

PRINTTAB< 

1 

1 

1 II 1 . -1 1 1 1 

1 800 

PRINTTAB< 

1 

1 > 

"1 II II II 

1810 

PRINTTAB< 

1 

.1 > 

" 1 li II II 

1820 

PRINTTAB< 

1 

1 > 

" 1 II II 1! 

1830 

PR INTTAB< 

1 

1 > 

" 1 II II II 

1840 

PRINTTAB< 

1 

1 > 

" 1 II II II 

1850 

PRINTTAB C 

1 

. 1 . :> 

" L.. L_ J | |.J„ 

1860 

PRI NTCURT 

r 

1 7 

;« 
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7901 

DR T H1 S'2,208,3 

25422. 

192 

1 00 

DRTR221 , 17, 192 

18:7'... 1 

. 192 

1 1 0 

DRTR 1 S'2 , 1 44,,. IS 

... 189,0 

. 192 

120 

DRTR 1 S'2, 189 1 ... 

1323.5" 

" 13 

1 30 

DRTR74,72 76 1 

... 19311 

j4 7 


1 8 
17 
1 04 
176 


2 3. 40 

DRTR 1 3 ,• 3 


!. 7,1 

92 .• 

3.8: 

9 , 17 , 19:; 


, 201 

2 3.56 

DRTFl 255, 

, 20 S' , 



18 

, 132 , 18: 

Zi 

, 17 


2 3.60 

DRTR192 

221 . 

,. 4,1 

92 r 

18: 

9 ,. 3. 8, 19: 

-- 

■“» cr 

r cl •. 


2 170 

DRT14192 

, 144. 

,. 1 £: ,s 

1 89 

.•1 
r ! "i' 

, .192 , 1.5 


,. 17 


2 180 

DRTR 3.92 

, .1. 8:9. 

, 5 , 1 

92 , 

15 

7 , 18 , 19: 


, 10- 

4 

2 190 

DRT 1974 ,, ' 

7279 

3,46 

, 13 

3 , 

104,74 ,' 

)’ i 

2 ,3. ' 

76 

2200 

DRTR8 ,■ 2! 

54 ,3. : 

7 , 1 S' 

2 , 2 

010: 

, 3 , £5 -4 , 

.1. 

8,1: 

92 

22:10 

DRT R 3.04 

... 74 

1 7 6... 

5,1 

69 

, 1 ,:!. 53 , 

I::;! 

5, :l.: 

92 

2220 

DRT f4 800 

r 5 CL 

232 

:, 2:2 

4 , 

4,240,3 

•- 

7‘ 6,: 

91 

2250 

DRTR132 

'D o 

,. 2 r > 

1 92 

, 1 

08,29,1 


2: 


2240 

DRTR353 

94 sRI 

EM*C 

NEC 

1<S 

I.JM* 




2250 

REM 

SPR 

ITE 

0 < 

SH 

X p * f * 




22^0 

DRTFI0 , :3 

20... 

0,3 2 

:, 0, 

01 , 

32,0,0 , 

1 

1 2 , 

01,0 

2270 

DRT R80 ,• 

0 ... 0 ,. 

1 12 , 

01,0! 

1 , 1 

1 2 ... 0,0 , 

1 

1 2 , 

0,01 

2280 

DRT192 4 Si 

, 0 .,. 0 

, 2 4 S 

} , 0 , 

0 , 

240: ,. 0,0i 

.*• 

248 

, 0 

22:90 

DRT 190 .■ 2 

48,. 0 

.. 2 , 

:50 ... 

01 , 

2,170,0 

*• 

6,1 

7 7 1 

2300 

DRTR 0i , 6 

,171 

0 , t 

;, i ? 

' 3. , 

0,6,1 71 

•- 

0,7 

, 3:9 

2310 

DRTR0,7 

3’9 

0 







2320 

REM *** 

SPR 

ITE 

Hi < 

e:s 

:pl > *** 




2:330 

DRT 190 ,• 1 

6,64 

, 34, 

, 16, 

. 1 2 

(g ,. ;| 3 9 , 

1 

S , S: 


2340 

DRTR200 

i, 96 , 

4,6£ 

i ,• 6 

I-, 2 

! -.8 r 1 6.'' 

; r 

48, 

9,0 

2350 

DRT 19 3.2 , 

172 ... 

28,:; 

2 r 6 £ 

.«• 

:24... 0,17 


0 ,. 1 


2360 

DRTR166 

i, 48 , 

24,: 

!'' ..- C 

:i , S 

i 7,6 4,1 £ 


i... 2 , 

S 

2370 

UR T1436... 

4,. 13 

:6,1 >: 

7 , 1 , 

- 3 fc 

::, 14 0,2 , 

> 

;! 6 , t 

■ 4 ,4 

R2R0 

DR 11468 

. 2 r ».‘J 

: .. 6 6 

,. 0 , :l 

!. 6, 

. 2,0i, 0i, 6 

i , 

• 8 






216 GAMES LISTINGS 


Just a little game for 'Shoot ’em up' lovers. Galactic Battle takes place in a lar-away galaxy. You 
are in charge of a scout ship which was part of a convoy. The rest of the convoy, however, was 
destroyed by an alien force. You are all alone. Your sub-space radio is out of action and you have 
only a small amount of energy left. Then, just when you thought you had escaped the clutches of 
the evil alien force you are again under attack. With only a limited amount ot energy how long can 

you last? . 

RUNning this game puts you in the cockpit of the scout ship, looking out into the void ot 

space. Below the window is the console which keeps you updated on your ship’s status. In the 
centre of the console, ticking away, is a clock to show how long you last. In the middle ot the 
window you will see a cross-hair sight into which you must manouevre the alien in order to destroy 
it When the joystick is being moved left, right, up or down the fire button is inoperable to stop 
itchy fingers holding the button down all the time. If you run out of energy your shields will be no 
more and as soon as the damage report tops 500 .. . Complete Destruction. At this point you will 
be given the option to prove you are not a chicken! 

Here is a list of VARIABLES used in this program: 

SC = Screen base location 
CO = Color base location 
SE = Screen explosion location 
CE = Color explosion location 
X = Left and right movement of alien 
Y = Up and down movement of alien 
A( ) = Array holding direction of debris 
EN = Current energy supply 
K1 = Number of aliens destroyed 
DA = Current damage report 
PH = Photons left 
S = Start of ‘SID’ chip 
VC = Start of ‘VIC" chip 

One word of warning. SAVE this program before RUNning it because it contains a SYS64738 
which will erase the program. This is used if the player decides not to play another game. To avoid 
this, simply press RUN/STOP and RESTORE when you are asked to play again. 
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1 006 

REM*** 




1 0 1 0 
1 030 

REM - 

-<"H"=S 

•VMBOL FOR CURSOR 

LEF 

T > - 

.1. 030 

PR IN" 

rcHRi-' i 

47>CHR$< .152> 



104 Hi 
1 050 

POKE!: 

532801 

1:POKES3281,0 



1 060 

REM - 

- —-- 

READ SPRITE DfiTfi 



1070 

2 





1030 

FOR I = 

=0TO62 : 

REfiDJ :: POKE I +832 

JsNEI 

-:t 

1090 

FOR I = 

10 TU 62 : 

REfiD-J s POKE I +896 . 

June: 

•:t 

1 100 

2 





1110 

REM - 


SET UP SPRITES 

_ 


1 120 

2 





1130 

VC = 5i! 

•'248 : PC 

KEVC+21,3 



1 .140 

POKE 2 

040 r IS 

: POKES'041 , 14 



1 150 

POKE', 

C+23 , 0 

s POKE VC+29 ,. 3 



1 160 

POKEV 

C-+-397 

:POKEVC+40,12 



1 170 

POKE'v 

C .. 161 

F'OKEVC+1 .107 



1 180 

2 





.1190 

REM - 

- S 

ET UP VfiR'IfiE.'LES 

_ 


.1 200 

: 





1210 

SC--16 

24:CO= 

55296 



1220 

oE~"SC 

h~ •."< y tl 2 

■1=00+380 



1230 

2-1 NT 

<PND<1 

>*200+30> 



1240 

V= I NT 

<RHD< 1 

'> * 15£i+10 > 



1250 

Fi <; i > i= 

1 : Fi < 2 > 

=39:fi <3 >=40 sfi < 4 > = 

=4 1 


1 260 

o <: 5 > ~ 

-1 : fi 6 

=-39 fi < 7 > =-40 : fi ■: 

O ..... 

41 

1 270 

EH-.ii.99 

9 : l< I =0 

s Dfi=0;PH=99 



1280 

TI*=" 

000000 

l 



1290 






1 300 

REM - 

-- SET 

UP SID F'fiRfiMETE 

RS - 


131 0 

2 





1 320 

S=542 

' cl 




1 330 

FOR I =2 

3TO24 :F 

: 'OKES +1 ,.0 NEXT 



1340 

POKES- 

1-24.14 




1 350 

POKES- 

i-5,. 31 : F 

: ’0KES+6,-15 
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1360 

POKES , 150s 

POKES+1 , 1 

1 370 

1380 

REM -.- S 

ET UP SHIPS CONSOLE 

1390 

1 400 

PRINTCHRTT 

151 > 

1410 

P0KE781,17 

: P0KE782 , 0 :SVS65520 

1420 

PR I NT'CI-IR* ■: 

18 > " F 

1430 

F'ORT= 1 TO 36 

: PRINT"." ; '■ NEXT 

1440 
1450 

PRINT" 'T : 
PRINT" I 

1 1 u 


1460 

PRINT" 

___, 1 M - 


1470 

PRINT" 1 

ENERGY : 1 r — " ? 

1480 

PRINT" - 

| PHOTONs II " 

1490 

PRINT" 1 

_ _ -II " : 


1 500 

PRINT" 

i . J 1 " - 

r .—. 11 

1510 

PR I NT" 1 

| DAMAGE : I 1 -" " 


1520 PRINT"- 1 I KILLS : II" 

1538 PRINT" I .-.... J "" 

1540 PRINT" L --— 1 I " ” 

1550 PRINT" L"; 

.1560 F 0RT = 1T036 s P RINT " s HEXT 

1570 PR I NT " J " ; CURT < 158 > .? 

1530 F0RI=0TO39:P0KE1 9 S4+1,160 
1590 POKE56256+1,11:NEXT 
1608 FOR T-- 1 TO25 : Q= I NT < RND < 1 > *680 > 
1610 POKEGO+Q, 7 sPOKESC+Q,4fsNEXT 
1620 : 


1630 

14 O 

REM -- MAIN 

LOOP —.. 

16' 5 3 

P=p E E K < 56320 > s Z - 0 s 1 

R=0 

1668 

IFF=126THENZ=1 


1670 

I FP= 125THENZ--2 


1680 

I FF'=: 123THENZ--4 


1690 

I FP= 1 19THENZ--3 


1700 

I FP= 111 THENPH=F'H-1 

s GOSUB2380 

1 7 10 

ONZGOSUB1950,1978, 

1990,2810 

1720 

F'OKEVC+30 , O 
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1 7 3 0 IF F ;: ' :=: .1.11 A N D P E E K < V C •+• 3 0 > fl N D 3 > = 3 T H E M G 0 S U B 215 0 
1748 EM=EN -.1 : IFENC0THEH2430 
1 750 IFRND € ;|. ;) < „ 025THENGOSUB2068 
1760 IFRNDC1><.2THENR-INTCRHD<TI>*4+ 1 > 

1 770 0H R G 0 S U E. : . : i 19150, 197 0 j. 9 9 0 2 0 i 0 
1 780 J. F DR >5 00T l-l EN2430 
1790 POKE7'3.1. , 19 : P0KE782 ,11: SVS65520 
1300 PR I NT ; I NT < EN > ; " HI " 

1810 P 0 K E 7 81 ,■ 21 : P 0 K E782,11:8V S 6 5528 
1820 PR I NTDfi ; 

18301 POKE781 , .1.9 : P0KE782,32 : SYSS5520 
1840 PR I NT; PH; "I! " 

1850 P 0 K E 7 81,21 : P 01< EE782,32 s S V S65520 
I860 PRINT;!<I 

1870 POKE781,20:P0KE782,18:SVS65520 
1880 F'R INTMILU- < TI ■$ , 3 , 1 > MI D$ < TI * „ 4,1 > : 

1890 PR I NT " : " ; RIGHT $ <TI f-, 2 > 

1900 POKEVC+2,X;POKEVC+3,V 
1910 GOTO1650 
1920 : 

1930 REM ---- ALIEN MOVEMENT ..—.- 

1940 s 

1958 V=V —8 :1FVC . 1 0THENV= 1 0 
I960 RETURN 

1970 V=V+S:IFV>165THENV=165 
1980 RETURN 

1990 sIFX<10THENX=1 0 

2800 RETURN 

20 10 X=X+8:1FX>246THENX=246 
2020 RETURN 
2030 : 

2040 REM -- ALIEN RETURNS FIRE —.- 

2050 2 

2060 P 01 < E53281,2: P 0 K E V C+4 0 , l 

2070 POKES;+4,129 : Dfl=Dfl+1 NT RND < 1 > *30 > 

2080 EN=EN- 10:1 FEN<0T14EN2430 
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2030 

FORD-1 TO1 i 

30 : NEXT :l 

POKE VC 4-40 

2100 

POKES+4,0 

:P0KE532i 

31 0 

21 10 

RETURN 



2 i 20 

3 



2:1 30 

REM -- 

- ALIEN 

EXPLODES 

2140 

2 



2150 

POKEVC+21. 

1 : POKES 

t4,123 

2160 

POKES 3:2 81 , 

r 7 i: POKES 

328012 

2170 

FORD== .1. T05( 

3sNEXTD: 

POKES3281 

2180 

POKE53280 

1 1 


2130 

FORT=1TO7 

xF0RD=lT025sNEXTD 

2200 

G= I NT < RND 

CTI>*8+1 

> ; W '■ T > — G 

22 .1. 0 

POKECE+Tsf:flCG> 1 sP 

OKESE4T*A 

2220 

NEXTT : KI =1 

< I +1 


2230 

FORT ~ 1 TO 7: 

STEP.5 


2240 

POKESE+T*l=KW'::T> >... 

3 c!. 

2250 

NEXT:POKE 

8+4 , 0 


2260 

: 



2278 

REM —. 

... NEX 

T ALIEN - 

2290 

FOR ,T= 1 TO 2! 

000:NEXT 


2300 

X=INT RND 

<: i >* 200 + 

30 > 

2310 

V=I NT<RND 

K 1 >* 1504 

■ 1 0 > 

2320 

POKE VC+2 

X:POKEVC 

: 4 3V 

23:30 

POKEVC+21 

r Z' 


2340 

RETURN 



2360 

REM -.— 

— CHECK 

PHOTONS 

2370 

2 



2380 

IF P H > 0 T H E H R E T U R N 


2330 

PH--33 : EN= 

EN--2O0 :F 

JET URN 

2410 

REM -- 

— INTO 

OBLIVION - 

2420 

2 



2430 

POKEVC+21 

,0sFORI= 

n15TOOSTEP- 

2440 

F0RC—1T01 

5 


2450 

P0KE53281 

,C s POKE53280 .r C 
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2460 

2470 

2480 

2490 

2500 

2510 

2520 

2530 

2540 

2550 

2560 

2570 


POKES+4129 s POKES +1 , 20+1 

POKE'8+24 .r I sNEXTC, I 

POKES+4,0 : POKE53281 ,0 : POKE53280,0 

PR INTCHR* <158 >CHRT <147 > 

PRINT"ANOTHER FIGHT 
PRINT" ■'OR ORE VOU CHICKEN'" 

PRINT SPRINT SPRINT 

PRINT"VES OR NO?.." 

GETAT : IFhT" V "AND A# O "N" THEN2540 
I FAT-" V " THENRUN 

SV864738:REN NRRNING CLEARS MEMORY 


2580 REM —-- SPRITE DATA -- 

2590 s 


26O0 DATA0 16 00,16, 0 , 0, 16.. 0,0,16,0 , 0 
2 6 1 0 D A T A 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 0 0 , 0 r 0 „ 0 
2620 DAT A 0, 0 , 254 ,0254, 0 ,0, 0 , 0,0 0,0 r 0 
2 G 3 0 DAT f : l 0 , r 00.. 0... 0.. 0 0 r 0 r 0 r 0 , gii g . £i. 01 
2640 DAT A16 , 0... 01 6 0,0,16,0 
2650 : 

2660 D AT A0,0,0,0,01,0 r 0,0,0,0 r gi r 0 r @ q r 0 
2670 DATA0,8,0,0,120,0,7,207,128,6G 
2680 DAT A120 , 240 ... 96 , 0 , 24 , 7 . 1 . , 255 , 136 
2690 DAT A124,120,248,83,48,184,76,48 
2700 DAT A200,7.1,255 , 1 36,64,0,8,224,0 
2 710 DATA28,168,0,28,160,0,20,224,0,28 
2720 DAT A0,8,8 
2730 : 


2740 REM 


END OF PROGRAM 
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